From: Jim Meyering <jim@meyering.net>
Date: Mon, 3 Mar 2003 10:39:02 +0000 (+0000)
Subject: Set $ME properly.
X-Git-Tag: v4.5.9~73
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=a6b030577ba3a7c9e809204b14d7f5b1fb2a0f6f;p=thirdparty%2Fcoreutils.git

Set $ME properly.
---

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;