From: Tels <nospam-abuse@bloodgate.com>
Date: Fri, 18 Jan 2002 22:07:14 +0000 (+0100)
Subject: Re: ext/Devel/DProf/DProf.t -- use exe_ext
X-Git-Tag: accepted/trunk/20130322.191538~28314
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c59238f29565149a5db7c2f7abc358a253a4303f;p=platform%2Fupstream%2Fperl.git

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
--- 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
--- 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
--- 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;