CC-tea/coreutils
1
0
Fork 0
mirror of git://git.sv.gnu.org/coreutils.git synced 2026-04-21 11:16:16 +02:00
Code Issues Projects Releases Wiki Activity

Set $ME properly.

Browse Source
This commit is contained in:
Jim Meyering
2003-03-03 10:39:02 +00:00
parent 7b5ef3e75d
commit a6b030577b
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
tests/misc/tty-eof
View File

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