diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-28 21:51:11 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-28 21:51:11 +0000 |
| commit | 6071deed1123166fa8c7c5412c9f7b669e8f7139 (patch) | |
| tree | 7fbdef346858ed832e805fa6565de41324c6f1c2 /lib | |
| parent | 5a7d176ddfe3850724e86702975cfe5594324cfc (diff) | |
| download | perl-6071deed1123166fa8c7c5412c9f7b669e8f7139.tar.gz | |
MM patches from Ilya Zakharevich
Date: Wed, 28 Oct 1998 01:27:04 -0500 (EST)
Message-Id: <199810280627.BAA07053@monk.mps.ohio-state.edu>
Subject: [PATCH 5.00552] Make MakeMaker more verbose
--
Date: Wed, 28 Oct 1998 01:25:36 -0500 (EST)
Message-Id: <199810280625.BAA06980@monk.mps.ohio-state.edu>
Subject: [PATCH 5.00552] Make MakeMaker ignore errors in kid Makefile.PL
p4raw-id: //depot/perl@2116
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/MakeMaker.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/ExtUtils/MakeMaker.pm b/lib/ExtUtils/MakeMaker.pm index 47c3daaf82..51fb62edf5 100644 --- a/lib/ExtUtils/MakeMaker.pm +++ b/lib/ExtUtils/MakeMaker.pm @@ -416,6 +416,7 @@ sub ExtUtils::MakeMaker::new { } my $newclass = ++$PACKNAME; + local @Parent = @Parent; # Protect against non-local exits { # no strict; print "Blessing Object into class [$newclass]\n" if $Verbose>=2; @@ -475,6 +476,9 @@ END $self->init_dirscan(); $self->init_others(); + my($argv) = neatvalue(\@ARGV); + $argv =~ s/^\[/(/; + $argv =~ s/\]$/)/; push @{$self->{RESULT}}, <<END; # This Makefile is for the $self->{NAME} extension to perl. @@ -485,6 +489,8 @@ END # # ANY CHANGES MADE HERE WILL BE LOST! # +# MakeMaker ARGV: $argv +# # MakeMaker Parameters: END @@ -529,7 +535,6 @@ END } push @{$self->{RESULT}}, "\n# End."; - pop @Parent; $self; } |