Revision: 875 Author: tim.bunce Date: Fri Oct 23 05:56:12 2009 Log: Fix t/22-readstream.t to (try to) use the same perl in the subprocess
http://code.google.com/p/perl-devel-nytprof/source/detail?r=875 Modified: /trunk/t/22-readstream.t ======================================= --- /trunk/t/22-readstream.t Thu Oct 22 07:42:40 2009 +++ /trunk/t/22-readstream.t Fri Oct 23 05:56:12 2009 @@ -16,7 +16,11 @@ $ENV{NYTPROF} = "file=$out"; unlink $out; -run_command(q{perl -d:NYTProf -e "sub A { };" -e "1;" -e "A()"}); +use Config; +my $this_perl = $^X; +$this_perl .= $Config{_exe} if $^O ne 'VMS' and $this_perl !~ m/$Config{_exe}$/i; + +run_command($this_perl . q{ -d:NYTProf -e "sub A { };" -e "1;" -e "A()"}); my %prof; my @seqn; --~--~---------~--~----~------------~-------~--~----~ 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] -~----------~----~----~----~------~----~------~--~---
