git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/BackupPC/trunk@218
8392b6e1-25fa-0310-8288-
cc32f8e212ea
use Algorithm::Diff;
use Getopt::Std;
+# cludge: minimum .tar.gz size
+my $MIN_TAR_SIZE = 80;
+
my $path = abs_path($0);
$path =~ s#/[^/]+$#/#;
my $tarIncCreate = $path .= 'BackupPC_tarIncCreate';
$size = (stat( "$tar_dir/$tar_file" ))[7];
}
- if ($size > 45) {
+ if ($size > $MIN_TAR_SIZE) {
my $max_size = $Conf{'MaxArchiveSize'} || die "problem with MaxArchieSize parametar";
$max_size *= 1024; # convert to bytes