From b1106637529e8263df0008fd20ff558a537e277f Mon Sep 17 00:00:00 2001 From: Stew Benedict Date: Thu, 5 Sep 2002 16:25:38 +0000 Subject: cleanup check for Expect - thx gc --- perl-install/standalone/drakbackup | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index 96044d9db..d1f4a4aaa 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -774,12 +774,9 @@ sub do_expect { my ($mode, $filename) = @_; - eval { require Expect; 1 }; + eval { require Expect }; - if ($@ ne '') { - $log_buff .= "perl-Expect not installed!"; - return(1); - } + $@ and $log_buff .= "perl-Expect not installed!", return(1); #- for debugging set to 1 $Expect::Exp_Internal = 0; -- cgit v1.2.1