In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/2e94c8152e39dcf6aa876a7fa29045115f77194d?hp=ffff3758321ce19c1a12dee2d933f1bca64b7861>
- Log ----------------------------------------------------------------- commit 2e94c8152e39dcf6aa876a7fa29045115f77194d Author: Max Maischein <[email protected]> Date: Fri Sep 25 22:26:33 2009 +0200 Make makedef.pl build the command line from its own @INC Attached is a patch that cleans up the code in makedef.pl that I added, like Merijn suggested. -max Signed-off-by: H.Merijn Brand <[email protected]> ----------------------------------------------------------------------- Summary of changes: makedef.pl | 6 ++---- 1 files changed, 2 insertions(+), 4 deletions(-) diff --git a/makedef.pl b/makedef.pl index 65c2e28..9e261e5 100644 --- a/makedef.pl +++ b/makedef.pl @@ -79,10 +79,8 @@ if ($PLATFORM eq 'win32' or $PLATFORM eq 'wince' or $PLATFORM eq "aix") { $ENV{PERL5LIB} = join $Config{path_sep}, @INC; my $cmd = "$^X $opts -V"; - my $config = `$cmd`; - if (! $config) { - die "Couldn't run [$cmd]: $!"; - }; + my $config = `$cmd` + or die "Couldn't run [$cmd]: $!"; my($options) = $config =~ /^ Compile-time options: (.*?)\n^ \S/ms; $options =~ s/\s+/ /g; print STDERR "Options: ($options)\n"; -- Perl5 Master Repository
