Select Code to Download

sub _findcc {
    my @flags = grep { length } map { quotewords('\s+', 0, $_ || ()) }
        @Config{qw(ccflags ldflags)};

sub _findcc {
    my @flags = @Config{qw(ccflags ldflags)};
    @flags = grep { length } map { quotewords('\s+', 0, $_ || ()) } @f
+lags;

...
>> [0] C:/Perl64/lib/Config.pm       :   76:     die "&Config::AUTOLOA
+D failed on $Config::AUTOLOAD";
...
>> [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{
+$$} } = ()

...
>> [0] C:/Perl64/lib/Config_heavy.pl :   13:          die $@ if $@ && 
+$@ !~ /^Can't locate ActivePerl\/Config\.pm/;
...
>> [0] C:/Perl64/lib/Config_heavy.pl :   74: $_ = <<'!END!';
>> [0] C:/Perl64/lib/Config_heavy.pl : 1155: my $i = 0;
...

C:\test>perl -MDevel::CheckLib -e1

C:\test>