Revision: 1067
Author: tim.bunce
Date: Sat Feb 20 04:41:18 2010
Log: Ensure subprocess perl has same libs as us (e.g., if we were run with
perl -Mblib)
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1067
Modified:
/trunk/lib/Devel/NYTProf/Run.pm
=======================================
--- /trunk/lib/Devel/NYTProf/Run.pm Thu Jan 21 04:42:23 2010
+++ /trunk/lib/Devel/NYTProf/Run.pm Sat Feb 20 04:41:18 2010
@@ -55,6 +55,9 @@
join(" ", @perl), $ENV{NYTPROF} || ''
if 0;
+ # ensure child has same libs as us (e.g., if we were run with perl
-Mblib)
+ local $ENV{PERL5LIB} = join($Config{path_sep}, @INC);
+
if (my $src_file = $opt{src_file}) {
system(@perl, $src_file) == 0
or carp "@perl $src_file exited with an error status";
--
You've received this message because you are subscribed to
the Devel::NYTProf Development User group.
Group hosted at: http://groups.google.com/group/develnytprof-dev
Project hosted at: http://perl-devel-nytprof.googlecode.com
CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf
To post, email: [email protected]
To unsubscribe, email: [email protected]
