From 3fb49c5f884368a2cdb94b108a146e5a7dc89304 Mon Sep 17 00:00:00 2001 From: Stew Benedict Date: Fri, 23 Jan 2004 19:42:42 +0000 Subject: perl_checker: assigned, but not read --- perl-install/standalone/drakbackup | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'perl-install/standalone/drakbackup') diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index 50171531d..2644fb10b 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -1198,7 +1198,6 @@ sub build_backup_files() { my $tar_cmd_sys; my $tar_cmd_user; my $tar_cmd_other; - my $base_sys_exist = 0; my @dir_content; my $incr; my $find_args = "! -type d"; @@ -1243,8 +1242,7 @@ sub build_backup_files() { $backupignore && -f "/etc/.backupignore" and $tar_cmd_sys .= " -X /etc/.backupignore"; -d $save_path and @dir_content = all($save_path); - any { /^backup_base_sys/ } @dir_content and $base_sys_exist = 1; - + if ($where_hd && !$daemon || $daemon) { $interactive and progress($pbar, $plabel, 0.5, N("Backup system files...")); if ($backup_sys) { @@ -3348,13 +3346,12 @@ sub restore_step_user() { sub restore_step_sys() { my $restore_step_sys; - my $check_backup_before; my $combo_restore_step_sys = new Gtk2::OptionMenu(); $combo_restore_step_sys->set_popdown_strings(@sys_backuped); gtkpack($advanced_box, $restore_step_sys = gtkpack_(new Gtk2::VBox(0,10), 1, new Gtk2::VBox(0,10), - 0, $check_backup_before = new Gtk2::CheckButton(N("Backup the system files before:")), + 0, new Gtk2::CheckButton(N("Backup the system files before:")), 0, gtkpack_(new Gtk2::HBox(0,10), 1, N("please choose the date to restore"), 0, $combo_restore_step_sys, -- cgit v1.2.1