summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2004-05-24 17:49:16 +0000
committerStew Benedict <stewb@mandriva.org>2004-05-24 17:49:16 +0000
commit08e10b48c82806fb62a992fce834f9fd2c250fc0 (patch)
tree270fb8412ccbc1db683f25412c9a2376d1ee456a /perl-install
parentc98358f79ce295fc4ee0c8274d8f9653226c5bf7 (diff)
downloaddrakx-backup-do-not-use-08e10b48c82806fb62a992fce834f9fd2c250fc0.tar
drakx-backup-do-not-use-08e10b48c82806fb62a992fce834f9fd2c250fc0.tar.gz
drakx-backup-do-not-use-08e10b48c82806fb62a992fce834f9fd2c250fc0.tar.bz2
drakx-backup-do-not-use-08e10b48c82806fb62a992fce834f9fd2c250fc0.tar.xz
drakx-backup-do-not-use-08e10b48c82806fb62a992fce834f9fd2c250fc0.zip
Fix dropped .txt files when running mkisofs. (Anthill #799)
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbackup4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index a035c5ba4..4bb5ea1ce 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -1041,7 +1041,7 @@ sub build_backup_files() {
do_find(undef, $find_args_user, $list_file, $path_name);
do_tar($tar_cmd_user, "backup_$incr$user", undef, $path_name);
}
- push_list("$incr$user") if $incr =~ /_user/;
+ push_list("list_$incr$user") if $incr =~ /_user/;
files_to_results("$incr$user");
}
}
@@ -1251,7 +1251,7 @@ sub push_list {
my $filename = $conf{PATH_TO_SAVE} . "/" . $prefix . $the_time . ".";
$filename .= $conf{OPTION_COMP} if $prefix =~ /^backup/;
$filename .= "txt" if $prefix =~ /^list/;
- push @file_list_to_send_by_ftp, $filename;
+ push @file_list_to_send_by_ftp, $filename if -e $filename;
}
sub files_to_results {