From c59238f29565149a5db7c2f7abc358a253a4303f Mon Sep 17 00:00:00 2001 From: Tels Date: Fri, 18 Jan 2002 23:07:14 +0100 Subject: [PATCH] Re: ext/Devel/DProf/DProf.t -- use exe_ext Message-Id: <200201182106.XAA19133@taku.hut.fi> p4raw-id: //depot/perl@14340 --- t/comp/script.t | 4 ++-- t/op/stat.t | 4 ++-- t/run/fresh_perl.t | 4 ++-- 3 files changed, 6 insertions(+), 6 deletions(-) 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; -- 2.7.4