From: Max Maischein <corion@corion.net>
Date: Fri, 25 Sep 2009 20:26:33 +0000 (+0200)
Subject: Make makedef.pl build the command line from its own @INC
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2e94c8152e39dcf6aa876a7fa29045115f77194d;p=p5sagit%2Fp5-mst-13.2.git

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>
---

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";