diff options
| author | Max Maischein <corion@corion.net> | 2009-09-25 22:26:33 +0200 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2009-09-27 22:02:43 +0200 |
| commit | 2e94c8152e39dcf6aa876a7fa29045115f77194d (patch) | |
| tree | aea2bca2e44a9209b955f1c7e905757c6cf584b0 /makedef.pl | |
| parent | ffff3758321ce19c1a12dee2d933f1bca64b7861 (diff) | |
| download | perl-2e94c8152e39dcf6aa876a7fa29045115f77194d.tar.gz | |
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 <h.m.brand@xs4all.nl>
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/makedef.pl b/makedef.pl index 65c2e28ee4..9e261e5318 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"; |