From: Jim Meyering <jim@meyering.net>
Date: Sat, 8 Mar 2003 15:32:17 +0000 (+0000)
Subject: Also check for the log_user method, to avoid
X-Git-Tag: v4.5.10~61
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f31336c1934beb0900ec398042b6b3d472828a55;p=thirdparty%2Fcoreutils.git

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.
---

diff --git a/tests/misc/tty-eof b/tests/misc/tty-eof
index a17b4abf50..bb0cc053ed 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;
 
 {