mirror of
git://git.sv.gnu.org/coreutils.git
synced 2026-03-03 11:40:04 +02:00
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.
This commit is contained in:
@@ -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;
|
||||
|
||||
{
|
||||
|
||||
Reference in New Issue
Block a user