From 2077ea4795b3cb634f150b5e4d997ce88a9a450a Mon Sep 17 00:00:00 2001 From: Stew Benedict Date: Wed, 4 Sep 2002 11:44:25 +0000 Subject: enable perl-Expect (moved to main) --- perl-install/standalone/drakbackup | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) (limited to 'perl-install/standalone') 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; -- cgit v1.2.1