At line 333 of CheckLib.pm, swap:
sub _findcc {
my @flags = grep { length } map { quotewords('\s+', 0, $_ || ()) }
@Config{qw(ccflags ldflags)};
For: sub _findcc {
my @flags = @Config{qw(ccflags ldflags)};
@flags = grep { length } map { quotewords('\s+', 0, $_ || ()) } @f
+lags;
And the module will load.
And no, I have no idea why that should affect a fix, but it seems to on my 64-bit AS1007 setup.
All I can add at this point is that with the original, when it gets to line 13 of Config_Heavy.pl it goes tits up: ...
>> [0] C:/Perl64/lib/Config.pm : 76: die "&Config::AUTOLOA
+D failed on $Config::AUTOLOAD";
>> [0] C:/Perl64/lib/Config_heavy.pl : 13: die $@ if $@ &&
+$@ !~ /^Can't locate ActivePerl\/Config\.pm/;
&Config::AUTOLOAD failed on Config::launcher at C:/Perl64/lib/Config.p
+m line 76.
BEGIN failed--compilation aborted at C:/Perl64/lib/ActivePerl/Config.p
+m line 4.
Compilation failed in require at C:/Perl64/lib/Config_heavy.pl line 11
+.
BEGIN failed--compilation aborted at C:/Perl64/lib/Config_heavy.pl lin
+e 15.
Compilation failed in require at C:/Perl64/lib/Config.pm line 74.
>> [0] C:/Perl64/lib/File/Temp.pm : 870: local($., $@, $!, $^E
+, $?);
>> [0] C:/Perl64/lib/File/Temp.pm : 871: cleanup();
>> [0] C:/Perl64/lib/File/Temp.pm : 877: if (!$KEEP_ALL) {
>> [0] C:/Perl64/lib/File/Temp.pm : 880: @{ $fi
+les_to_unlink{$$} } : () );
>> [0] C:/Perl64/lib/File/Temp.pm : 881: foreach my $file (@
+files) {
>> [0] C:/Perl64/lib/File/Temp.pm : 895: @{ $dir
+s_to_unlink{$$} } : () );
>> [0] C:/Perl64/lib/File/Temp.pm : 896: foreach my $dir (@d
+irs) {
>> [0] C:/Perl64/lib/File/Temp.pm : 908: @{ $files_to_unlink
+{$$} } = ()
>> [0] C:/Perl64/lib/File/Temp.pm : 910: @{ $dirs_to_unlink{
+$$} } = ()
But with the change, that line runs fine: ...
>> [0] C:/Perl64/lib/Config_heavy.pl : 13: die $@ if $@ &&
+$@ !~ /^Can't locate ActivePerl\/Config\.pm/;
>> [0] C:/Perl64/lib/Config_heavy.pl : 19: our $summary = <<'!END!';
>> [0] C:/Perl64/lib/Config_heavy.pl : 52: my $summary_expanded;
>> [0] C:/Perl64/lib/Config_heavy.pl : 73: local *_ = \my $a;
>> [0] C:/Perl64/lib/Config_heavy.pl : 74: $_ = <<'!END!';
>> [0] C:/Perl64/lib/Config_heavy.pl : 1155: my $i = 0;
...
However, even with the fix, the suggested test line produces no output. I'm not sure if that is good or bad?, but I guess it is at least progress: C:\test>perl -MDevel::CheckLib -e1
C:\test>
Let me know If I can try anything else to help you solve this.
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
|