diff options
| author | Max Maischein <corion@corion.net> | 2010-12-11 15:20:13 +0100 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-12-11 14:09:44 -0800 |
| commit | 2c949eae4460585a9e81e28e21547c21a679201a (patch) | |
| tree | 24f1054201ae71fee5f8e79ea68594fe04bd7bb2 | |
| parent | 17231eb4bb0a67521fc6517ef00f9756378a7a88 (diff) | |
| download | perl-2c949eae4460585a9e81e28e21547c21a679201a.tar.gz | |
Make Porting/expand-macro.pl use $Config{make} instead of hardcoded `make`
| -rwxr-xr-x | Porting/expand-macro.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Porting/expand-macro.pl b/Porting/expand-macro.pl index df2b002f1a..772bff69df 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; |