Change 14341 by jhi@alpha on 2002/01/19 16:06:56
Subject: [PATCH] ext/Devel/DProf/DProf.t - different way
From: [EMAIL PROTECTED]
Date: Fri, 18 Jan 02 16:22 est
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/ext/Devel/DProf/DProf.t#3 edit
Differences ...
==== //depot/perl/ext/Devel/DProf/DProf.t#3 (text) ====
Index: perl/ext/Devel/DProf/DProf.t
--- perl/ext/Devel/DProf/DProf.t.~1~ Sat Jan 19 09:15:05 2002
+++ perl/ext/Devel/DProf/DProf.t Sat Jan 19 09:15:05 2002
@@ -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 @@
$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";
End of Patch.
