From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 17 Jan 2002 22:39:48 +0000 (+0000)
Subject: (replaced by #14322)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e22826fb8e3b63390bea29d85121e795c8643b2f;p=p5sagit%2Fp5-mst-13.2.git

(replaced by #14322)
The #14300 broke hints file handling.

p4raw-id: //depot/perl@14317
---

diff --git a/lib/ExtUtils/MakeMaker.pm b/lib/ExtUtils/MakeMaker.pm
index 08caa7b..8daf275 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: $@";