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