From a6b030577ba3a7c9e809204b14d7f5b1fb2a0f6f Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Mon, 3 Mar 2003 10:39:02 +0000
Subject: [PATCH] Set $ME properly.

---
 tests/misc/tty-eof | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tests/misc/tty-eof b/tests/misc/tty-eof
index 75a86be06c..a17b4abf50 100755
--- a/tests/misc/tty-eof
+++ b/tests/misc/tty-eof
@@ -10,6 +10,9 @@ s test"
   ;;
 esac
 
+ARGV_0=$0
+export ARGV_0
+
 exec $PERL -w -- - <<\EOF
 
 # Ensure that cat exits upon a single EOF (^D) from a tty.
@@ -17,7 +20,7 @@ exec $PERL -w -- - <<\EOF
 # requiring no arguments and that write to standard output.
 use strict;
 
-(my $ME = $0) =~ s|.*/||;
+(my $ME = $ENV{ARGV_0}) =~ s|.*/||;
 
 eval { require Expect };
 $@ and (warn "$ME: this script requires Perl's Expect package\n"), exit 77;
-- 
2.47.3