From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 2 Aug 1999 14:21:55 +0000 (+0000)
Subject: Exact path to perl for open -|.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bd4fc1f042e08965c82768f3b6911e13617c4bb2;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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>;