Exact path to perl for open -|.

p4raw-id: //depot/cfgperl@3890

diff --git a/t/io/open.t b/t/io/open.t
index 0154b8f..12d32f4 100755 (executable)
--- a/t/io/open.t
+++ b/t/io/open.t
@@ -80,7 +80,7 @@ unlink("afile");
 }
 {
 print "# \$!='$!'\nnot " unless open(my $f, '-|', <<'EOC');
-perl -e "print qq(a row\n); print qq(another row\n)"
+./perl -e "print qq(a row\n); print qq(another row\n)"
 EOC
 print "ok 24\n";
 @rows = <$f>;
@@ -91,7 +91,7 @@ print "ok 26\n";
 }
 {
 print "# \$!='$!'\nnot " unless open(my $f, '|-', <<'EOC');
-perl -pe "s/^not //"
+./perl -pe "s/^not //"
 EOC
 print "ok 27\n";
 @rows = <$f>;