summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2002-09-05 16:25:38 +0000
committerStew Benedict <stewb@mandriva.org>2002-09-05 16:25:38 +0000
commitb1106637529e8263df0008fd20ff558a537e277f (patch)
treea931e5af40f53f6a747f88be887fc328960aeed2
parent4b8e7c49ea1da8e0525421c4db2b71043e508e4d (diff)
downloaddrakx-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-xperl-install/standalone/drakbackup7
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;