X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/17231eb4bb0a67521fc6517ef00f9756378a7a88..2c949eae4460585a9e81e28e21547c21a679201a:/Porting/expand-macro.pl?ds=sidebyside

diff --git a/Porting/expand-macro.pl b/Porting/expand-macro.pl
index df2b002..772bff6 100755
--- a/Porting/expand-macro.pl
+++ b/Porting/expand-macro.pl
@@ -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;