From 30ccf7222a78587cb562e2b4be05f20f4d3239c1 Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Sat, 8 Mar 2003 19:02:38 +0000
Subject: Require at least version 1.11 of Expect.pm. Old versions of Expect.pm
 (e.g., 1.07) lack the log_user function. Patch by Bob Proulx.

---
 tests/misc/tty-eof | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'tests')

diff --git a/tests/misc/tty-eof b/tests/misc/tty-eof
index bb0cc053e..c5d57ab01 100755
--- a/tests/misc/tty-eof
+++ b/tests/misc/tty-eof
@@ -24,8 +24,9 @@ use strict;
 
 # 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;
+eval { require Expect; Expect->require_version('1.11') };
+$@ and (warn "$ME: this script requires Perl's Expect package >=1.11\n"),
+  exit 77;
 
 {
   my $fail = 0;
-- 
cgit v1.2.3-54-g00ecf