1
0
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:
Jim Meyering
2003-03-08 15:32:17 +00:00
parent cb1dcb5818
commit f31336c193

View File

@@ -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;
{