[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.453,1.454

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22610/lib/Module/Build

Modified Files:
	Base.pm 
Log Message:
Run Build.PL in the current process for new_from_context()

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.453
retrieving revision 1.454
diff -u -d -r1.453 -r1.454
--- Base.pm	1 Jul 2005 11:33:35 -0000	1.453
+++ Base.pm	5 Jul 2005 17:54:35 -0000	1.454
@@ -81,8 +81,15 @@
   
   # XXX Read the META.yml and see whether we need to run the Build.PL?
   
-  # Run the Build.PL
-  $package->run_perl_script('Build.PL', [], [$package->unparse_args(\%args)]);
+  # Run the Build.PL.  We use do() rather than run_perl_script() so
+  # that it runs in this process rather than a subprocess, because we
+  # need to make sure that the environment is the same during Build.PL
+  # as it is during resume() (and thereafter).
+  {
+    local @ARGV = $package->unparse_args(\%args);
+    do 'Build.PL';
+    die $@ if $@;
+  }
   return $package->resume;
 }