summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbackup
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2002-09-04 11:44:25 +0000
committerStew Benedict <stewb@mandriva.org>2002-09-04 11:44:25 +0000
commit2077ea4795b3cb634f150b5e4d997ce88a9a450a (patch)
tree7e52e1e7adc8ee022ff7d680ce7c26804f78da21 /perl-install/standalone/drakbackup
parent03284f0f01ce828f03a45c43aee6c1087e5712e0 (diff)
downloaddrakx-2077ea4795b3cb634f150b5e4d997ce88a9a450a.tar
drakx-2077ea4795b3cb634f150b5e4d997ce88a9a450a.tar.gz
drakx-2077ea4795b3cb634f150b5e4d997ce88a9a450a.tar.bz2
drakx-2077ea4795b3cb634f150b5e4d997ce88a9a450a.tar.xz
drakx-2077ea4795b3cb634f150b5e4d997ce88a9a450a.zip
enable perl-Expect (moved to main)
Diffstat (limited to 'perl-install/standalone/drakbackup')
-rwxr-xr-xperl-install/standalone/drakbackup15
1 files changed, 7 insertions, 8 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 1b67f87e7..5b355f2e6 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -128,7 +128,6 @@ use common;
use strict;
use Time::localtime;
use detect_devices;
-use Data::Dumper;
my $in = 'interactive'->vnew('', 'default');
@@ -768,9 +767,9 @@ sub ftp_client {
}
#- this is just here to get around Expect for the moment
-sub exp_continue {
- return(0);
-}
+#sub exp_continue {
+# return(0);
+#}
sub do_expect {
@@ -782,10 +781,10 @@ sub do_expect {
#- move this to the top? - problem is need for perl-Expect (in contribs)
-#- temporarily disabled
-# use Expect;
-show_warning("w", __("Sorry, perl-Expect is not installed/enabled. To use\nthis feature, install perl-Expect and comment lines 772-774,\n as well as 788,789. Then uncomment line 787."));
-return(1);
+#- temporarily disabled - back on Sep 4 2002 - perl-Expect moved to main
+ use Expect;
+#show_warning("w", __("Sorry, perl-Expect is not installed/enabled. To use\nthis feature, install perl-Expect and comment lines 772-774,\n as well as 788,789. Then uncomment line 787."));
+#return(1);
#- for debugging set to 1
$Expect::Exp_Internal = 0;