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;
}
|
