This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Compatibility fixes following review
authorDominic Hargreaves <dom@earth.li>
Fri, 13 Oct 2017 07:47:34 +0000 (09:47 +0200)
committerDominic Hargreaves <dom@earth.li>
Fri, 13 Oct 2017 07:47:34 +0000 (09:47 +0200)
bin/mconfig
bin/metaconfig

index 9cea775..8226726 100755 (executable)
@@ -9,6 +9,9 @@ $p5_metaconfig_base = "$FindBin::Bin/../";
 chdir "$p5_metaconfig_base/perl" ||
     die "perl/ directory missing in $p5_metaconfig_base\n";
 
+-w 'Configure' && -w 'config_h.SH' ||
+    die "both Configure and config_h.SH must be writable\n";
+
 # $Id: mconfig.SH 22 2008-05-28 08:01:59Z rmanfredi $
 #
 #  Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
@@ -91,7 +94,7 @@ if ($opt_k) {
 } else {
        `rm -rf .MT 2>&1`;
 }
-system "/usr/bin/perl", "Porting/config_h.pl";
+system $^X, "Porting/config_h.pl";
 print "Done.\n" unless $opt_s;
 
 # General initializations
index fc67805..f908c4f 100755 (executable)
@@ -6,6 +6,9 @@ $p5_metaconfig_base = "$FindBin::Bin/../";
 chdir "$p5_metaconfig_base/perl" ||
     die "perl/ directory missing in $p5_metaconfig_base\n";
 
+-w 'Configure' && -w 'config_h.SH' ||
+    die "both Configure and config_h.SH must be writable\n";
+
 #
 # This perl program uses dynamic loading [generated by perload]
 #