diff options
| -rwxr-xr-x | perl-install/standalone/drakbackup | 7 |
1 files 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; |