From: Paul Green <Paul.Green@stratus.com>
Date: Fri, 18 Jan 2002 16:22:00 +0000 (-0500)
Subject: ext/Devel/DProf/DProf.t - different way
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=38080423233355dc3a9bb319a3902e81e6f0f238;p=p5sagit%2Fp5-mst-13.2.git

ext/Devel/DProf/DProf.t - different way
Message-Id: <200201182125.QAA08563@mailhub1.stratus.com>

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

diff --git a/ext/Devel/DProf/DProf.t b/ext/Devel/DProf/DProf.t
index 5ecba68..de4064d 100644
--- a/ext/Devel/DProf/DProf.t
+++ b/ext/Devel/DProf/DProf.t
@@ -3,6 +3,7 @@
 BEGIN {
     chdir( 't' ) if -d 't';
     @INC = '../lib';
+    require './test.pl';      # for which_perl() etc
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bDevel\/DProf\b/){
       print "1..0 # Skip: Devel::DProf was not built\n";
@@ -27,7 +28,7 @@ getopts('vI:p:');
 
 $path_sep = $Config{path_sep} || ':';
 $perl5lib = $opt_I || join( $path_sep, @INC );
-$perl = $opt_p || $^X;
+$perl = $opt_p || which_perl();
 
 if( $opt_v ){
 	print "tests: @tests\n";