This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
smoke-me diag
authorFather Chrysostomos <sprout@cpan.org>
Tue, 21 Aug 2012 08:11:34 +0000 (01:11 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 21 Aug 2012 21:11:04 +0000 (14:11 -0700)
nt,hun

configpm

index 6ea7419..250f5ce 100755 (executable)
--- a/configpm
+++ b/configpm
@@ -1135,7 +1135,10 @@ EOS
 unshift(@INC,'lib');
 unshift(@INC,'xlib/symbian') if $Opts{cross};
 require $Config_PM;
 unshift(@INC,'lib');
 unshift(@INC,'xlib/symbian') if $Opts{cross};
 require $Config_PM;
-require $Config_heavy;
+    if (!eval {require $Config_heavy}) {
+       open my $fh, "<", $Config_heavy;
+        print STDERR while <$fh>;
+    }
 import Config;
 
 die "$0: $Config_PM not valid"
 import Config;
 
 die "$0: $Config_PM not valid"