Change 14340 by jhi@alpha on 2002/01/19 03:00:26
Subject: [PATCH] Re: ext/Devel/DProf/DProf.t -- use exe_ext
From: Tels <[EMAIL PROTECTED]>
Date: Fri, 18 Jan 2002 22:07:14 +0100 (CET)
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/t/comp/script.t#13 edit
.... //depot/perl/t/op/stat.t#54 edit
.... //depot/perl/t/run/fresh_perl.t#2 edit
Differences ...
==== //depot/perl/t/comp/script.t#13 (xtext) ====
Index: perl/t/comp/script.t
--- perl/t/comp/script.t.~1~ Fri Jan 18 20:15:05 2002
+++ perl/t/comp/script.t Fri Jan 18 20:15:05 2002
@@ -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";
==== //depot/perl/t/op/stat.t#54 (xtext) ====
Index: perl/t/op/stat.t
--- perl/t/op/stat.t.~1~ Fri Jan 18 20:15:05 2002
+++ perl/t/op/stat.t Fri Jan 18 20:15:05 2002
@@ -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 @@
plan tests => 69;
-my $Perl = which_perl;
+my $Perl = which_perl();
$Is_Amiga = $^O eq 'amigaos';
$Is_Cygwin = $^O eq 'cygwin';
==== //depot/perl/t/run/fresh_perl.t#2 (text) ====
Index: perl/t/run/fresh_perl.t
--- perl/t/run/fresh_perl.t.~1~ Fri Jan 18 20:15:05 2002
+++ perl/t/run/fresh_perl.t Fri Jan 18 20:15:05 2002
@@ -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;
End of Patch.
