From f31336c1934beb0900ec398042b6b3d472828a55 Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Sat, 8 Mar 2003 15:32:17 +0000 Subject: 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. --- tests/misc/tty-eof | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'tests') 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; { -- cgit v1.2.3-70-g09d2