develooper Front page | perl.perl5.porters | Postings from September 2009

Re: Make makedef.pl build the command line from its own @INC

Thread Previous | Thread Next
From:
H.Merijn Brand
Date:
September 27, 2009 13:03
Subject:
Re: Make makedef.pl build the command line from its own @INC
Message ID:
20090927220310.33001068@pc09.procura.nl
On Fri, 25 Sep 2009 22:26:33 +0200, Max Maischein <corion@corion.net>
wrote:

> Attached is a patch that cleans up the code in makedef.pl that I added, 
> like Merijn suggested.

Applying: Make makedef.pl build the command line from its own @INC
Thanks, patch successfully applied as 2e94c8152e39dcf6aa876a7fa29045115f77194d

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


-- 
H.Merijn Brand  http://tux.nl      Perl Monger  http://amsterdam.pm.org/
using & porting perl 5.6.2, 5.8.x, 5.10.x, 5.11.x on HP-UX 10.20, 11.00,
11.11, 11.23, and 11.31, OpenSuSE 10.3, 11.0, and 11.1, AIX 5.2 and 5.3.
http://mirrors.develooper.com/hpux/           http://www.test-smoke.org/
http://qa.perl.org      http://www.goldmark.org/jeff/stupid-disclaimers/

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About