diff options
author | Jim Meyering <jim@meyering.net> | 2003-03-08 15:32:17 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 2003-03-08 15:32:17 +0000 |
commit | f31336c1934beb0900ec398042b6b3d472828a55 (patch) | |
tree | d7080d65f21d22a1a3abdbf63385e0fac2fa76fa | |
parent | cb1dcb581825d4caeff97844c5157d2afd057a9a (diff) | |
download | coreutils-f31336c1934beb0900ec398042b6b3d472828a55.tar.xz |
Also check for the log_user method, to avoid
spurious failure when using an old version of Expect.pm (e.g., 1.07).
Reported by Bob Proulx.
-rwxr-xr-x | tests/misc/tty-eof | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/misc/tty-eof b/tests/misc/tty-eof index a17b4abf5..bb0cc053e 100755 --- a/tests/misc/tty-eof +++ b/tests/misc/tty-eof @@ -22,7 +22,9 @@ use strict; (my $ME = $ENV{ARGV_0}) =~ s|.*/||; -eval { require Expect }; +# Some older versions of Expect.pm (e.g. 1.07) lack the log_user method, +# so check for that, too. +eval { require Expect; my $exp = new Expect; $exp->log_user(0) }; $@ and (warn "$ME: this script requires Perl's Expect package\n"), exit 77; { |