This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make Porting/expand-macro.pl use $Config{make} instead of hardcoded `make`
authorMax Maischein <corion@corion.net>
Sat, 11 Dec 2010 14:20:13 +0000 (15:20 +0100)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 11 Dec 2010 22:09:44 +0000 (14:09 -0800)
Porting/expand-macro.pl

index df2b002..772bff6 100755 (executable)
@@ -3,6 +3,7 @@ use strict;
 
 use Pod::Usage;
 use Getopt::Std;
+use Config;
 $Getopt::Std::STANDARD_HELP_VERSION = 1;
 
 my $trysource = "try.c";
@@ -80,8 +81,10 @@ EOF
 
 close $out or die "Can't close $trysource: $!";
 
-print "doing: make $tryout\n" if $opt{v};
-system "make $tryout" and die;
+print "doing: $Config{make} $tryout\n" if $opt{v};
+my $cmd = "$Config{make} $tryout";
+system( $cmd ) == 0
+    or die "Couldn't launch [$cmd]: $! / $?";
 
 # if user wants 'indent' formatting ..
 my $out_fh;