From bd4fc1f042e08965c82768f3b6911e13617c4bb2 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 2 Aug 1999 14:21:55 +0000
Subject: [PATCH] Exact path to perl for open -|.

p4raw-id: //depot/cfgperl@3890
---
 t/io/open.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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