Re: ext/Devel/DProf/DProf.t -- use exe_ext

Message-Id: <200201182106.XAA19133@taku.hut.fi>

p4raw-id: //depot/perl@14340

diff --git a/t/comp/script.t b/t/comp/script.t
index 2dbdaf2..6efffdf 100755 (executable)
--- a/t/comp/script.t
+++ b/t/comp/script.t
@@ -3,10 +3,10 @@
 BEGIN {
     chdir 't';
     @INC = '../lib';
-    require './test.pl';
+    require './test.pl';       # for which_perl() etc
 }
 
-my $Perl = which_perl;
+my $Perl = which_perl();
 
 print "1..3\n";
 

diff --git a/t/op/stat.t b/t/op/stat.t
index 4857836..1c0d4b2 100755 (executable)
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -3,7 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
-    require './test.pl';
+    require './test.pl';       # for which_perl() etc
 }
 
 use Config;
@@ -11,7 +11,7 @@ use File::Spec;
 
 plan tests => 69;
 
-my $Perl = which_perl;
+my $Perl = which_perl();
 
 $Is_Amiga   = $^O eq 'amigaos';
 $Is_Cygwin  = $^O eq 'cygwin';

diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t
index 73680eb..d59d0da 100644 (file)
--- a/t/run/fresh_perl.t
+++ b/t/run/fresh_perl.t
@@ -22,12 +22,12 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
-    require './test.pl';
+    require './test.pl';       # for which_perl() etc
 }
 
 use strict;
 
-my $Perl = which_perl;
+my $Perl = which_perl();
 
 $|=1;