This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: ext/Devel/DProf/DProf.t -- use exe_ext
authorTels <nospam-abuse@bloodgate.com>
Fri, 18 Jan 2002 22:07:14 +0000 (23:07 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 19 Jan 2002 03:00:26 +0000 (03:00 +0000)
Message-Id: <200201182106.XAA19133@taku.hut.fi>

p4raw-id: //depot/perl@14340

t/comp/script.t
t/op/stat.t
t/run/fresh_perl.t

index 2dbdaf2..6efffdf 100755 (executable)
@@ -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";
 
index 4857836..1c0d4b2 100755 (executable)
@@ -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';
index 73680eb..d59d0da 100644 (file)
 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;