diff options
| author | Stew Benedict <stewb@mandriva.org> | 2002-09-05 16:25:38 +0000 |
|---|---|---|
| committer | Stew Benedict <stewb@mandriva.org> | 2002-09-05 16:25:38 +0000 |
| commit | b1106637529e8263df0008fd20ff558a537e277f (patch) | |
| tree | a931e5af40f53f6a747f88be887fc328960aeed2 | |
| parent | 4b8e7c49ea1da8e0525421c4db2b71043e508e4d (diff) | |
| download | drakx-backup-do-not-use-b1106637529e8263df0008fd20ff558a537e277f.tar drakx-backup-do-not-use-b1106637529e8263df0008fd20ff558a537e277f.tar.gz drakx-backup-do-not-use-b1106637529e8263df0008fd20ff558a537e277f.tar.bz2 drakx-backup-do-not-use-b1106637529e8263df0008fd20ff558a537e277f.tar.xz drakx-backup-do-not-use-b1106637529e8263df0008fd20ff558a537e277f.zip | |
cleanup check for Expect - thx gc
| -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; |