This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make the test easier to use.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 17 Mar 2000 03:10:34 +0000 (03:10 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 17 Mar 2000 03:10:34 +0000 (03:10 +0000)
p4raw-id: //depot/cfgperl@5771

t/op/sysio.t

index 22e60e3..e43f850 100755 (executable)
@@ -2,7 +2,7 @@
 
 print "1..39\n";
 
-chdir('op') || die "sysio.t: cannot look for myself: $!";
+chdir('op') || chdir('t/op') || die "sysio.t: cannot look for myself: $!";
 
 open(I, 'sysio.t') || die "sysio.t: cannot find myself: $!";