diff options
| author | Jim Meyering <jim@meyering.net> | 2003-03-08 19:02:38 +0000 |
|---|---|---|
| committer | Jim Meyering <jim@meyering.net> | 2003-03-08 19:02:38 +0000 |
| commit | 30ccf7222a78587cb562e2b4be05f20f4d3239c1 (patch) | |
| tree | 031cb4a9f0379ad3157a5639f8d5942a5db323df /tests/misc/tty-eof | |
| parent | 34a6d6e2dd0b6c3d9fd83b3ba9861204fc6be83e (diff) | |
| download | coreutils-30ccf7222a78587cb562e2b4be05f20f4d3239c1.tar.xz | |
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.
Diffstat (limited to 'tests/misc/tty-eof')
| -rwxr-xr-x | tests/misc/tty-eof | 5 |
1 files changed, 3 insertions, 2 deletions
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; |