diff options
author | Nicholas Clark <nick@ccl4.org> | 2009-02-01 14:37:21 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2009-02-01 14:37:21 +0000 |
commit | eb1f8df73c921226b177e96f1b82371e5ad0d13d (patch) | |
tree | c72cbe4eeeb305d5257f1a93468be7886922ced2 /win32 | |
parent | ca5de986dd6a53bf639708f4ed28e2bdeb1b3aa8 (diff) | |
download | perl-eb1f8df73c921226b177e96f1b82371e5ad0d13d.tar.gz |
Replacing system $scalar with system @list requires splitting $MAKE on spaces.
Diffstat (limited to 'win32')
-rw-r--r-- | win32/buildext.pl | 24 |
1 files changed, 9 insertions, 15 deletions
diff --git a/win32/buildext.pl b/win32/buildext.pl index 55715f279d..8b6a797394 100644 --- a/win32/buildext.pl +++ b/win32/buildext.pl @@ -65,21 +65,15 @@ my $dir = $opts{dir} || 'ext'; my $target = $opts{target}; $target = 'all' unless defined $target; -my $make; -if (defined($makecmd) and $makecmd =~ /^MAKE=(.*)$/) { - $make = $1; +unless(defined $makecmd and $makecmd =~ /^MAKE=(.*)$/) { + die "$0: WARNING: Please include MAKE=\$(MAKE) in \@ARGV\n"; } -else { - print "$0: WARNING: Please include MAKE=\$(MAKE)\n"; - print "\tin your call to buildext.pl. See buildext.pl for details.\n"; - exit(1); -} - -# Strip whitespace at end of $make to ease passing of (potentially empty) parameters -$make =~ s/\s+$//; -# fallback to config.sh's MAKE -$make ||= $Config{make} || $ENV{MAKE}; +# This isn't going to cope with anything fancy, such as spaces inside command +# names, but neither did what it replaced. Once there is a use case that needs +# it, please supply patches. Until then, I'm sticking to KISS +my @make = split ' ', $1 || $Config{make} || $ENV{MAKE}; +# Using an array of 0 or 1 elements makes the subsequent code simpler. my @run = $Config{run}; @run = () if not defined $run[0] or $run[0] eq ''; @@ -155,10 +149,10 @@ sub build_extension { if (!$target or $target !~ /clean$/) { # Give makefile an opportunity to rewrite itself. # reassure users that life goes on... - my @config = (@run, $make, 'config', @$pass_through); + my @config = (@run, @make, 'config', @$pass_through); system @config and print "@config failed, continuing anyway...\n"; } - my @targ = (@run, $make, $target, @$pass_through); + my @targ = (@run, @make, $target, @$pass_through); print "Making $target in $ext_dir\n@targ\n"; my $code = system @targ; die "Unsuccessful make($ext_dir): code=$code" if $code != 0; |