diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-17 22:39:48 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-17 22:39:48 +0000 |
| commit | e22826fb8e3b63390bea29d85121e795c8643b2f (patch) | |
| tree | c5086eca9cfb0058dea9850c0f17dd81b8b8d905 /lib | |
| parent | dc526090a89bf63f54245aa13201c433005ab9ef (diff) | |
| download | perl-e22826fb8e3b63390bea29d85121e795c8643b2f.tar.gz | |
(replaced by #14322)
The #14300 broke hints file handling.
p4raw-id: //depot/perl@14317
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/MakeMaker.pm | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/lib/ExtUtils/MakeMaker.pm b/lib/ExtUtils/MakeMaker.pm index 08caa7b440..8daf27595e 100644 --- a/lib/ExtUtils/MakeMaker.pm +++ b/lib/ExtUtils/MakeMaker.pm @@ -163,9 +163,20 @@ sub eval_in_subdirs { sub eval_in_x { my($self,$dir) = @_; package main; - chdir $dir or Carp::carp("Couldn't change to directory $dir: $!"); + chdir $dir or + Carp::carp("Couldn't change to directory $dir: $!"); + + { + local *FH; + open(FH,"Makefile.PL") or + Carp::carp("Couldn't open Makefile.PL in $dir"); + local $/; # Sluuurp. + my $eval = join "", <FH>; + close FH; + # eval, not do, since we need lexical variables + eval $eval; + } - eval { do './Makefile.PL' }; if ($@) { # if ($@ =~ /prerequisites/) { # die "MakeMaker WARNING: $@"; |