Use test.pl, not Test.pm, in t/run/*.t

p4raw-id: //depot/perl@34183

1 files changed, 3 insertions, 3 deletions

diff --git a/t/run/runenv.t b/t/run/runenv.t
index 7359c4ecb5..2a73e7c400 100644
--- a/t/run/runenv.t
+++ b/t/run/runenv.t
@@ -12,10 +12,9 @@ BEGIN {
         print "1..0 # Skip: no fork\n";
 	    exit 0;
     }
+    require './test.pl'
 }
 
-use Test;
-
 plan tests => 17;
 
 my $STDOUT = './results-0';
@@ -82,7 +81,8 @@ sub it_didnt_work {
 sub try {
   my ($success, $reason) = runperl(@_);
   $reason =~ s/\n/\\n/g if defined $reason;
-  ok( !!$success, 1, $reason );
+  local $::Level = $::Level + 1;
+  ok( $success, $reason );
 }
 
 #  PERL5OPT    Command-line options (switches).  Switches in