168 |
my $size = (stat( "$tar_dir/$tarfilename" ))[7] || die "can't stat $tar_dir/$tarfilename"; |
my $size = (stat( "$tar_dir/$tarfilename" ))[7] || die "can't stat $tar_dir/$tarfilename"; |
169 |
|
|
170 |
if ($size > $Conf{MaxArchiveSize}) { |
if ($size > $Conf{MaxArchiveSize}) { |
171 |
print STDERR " part bigger than media $size > $Conf{MaxArchiveSize} }}" if ($debug); |
print ", part bigger than media $size > $Conf{MaxArchiveSize}\n"; |
172 |
$same = 0; |
return 0; |
|
last; |
|
173 |
} |
} |
174 |
|
|
175 |
print ", $size bytes"; |
print ", $size bytes"; |
190 |
|
|
191 |
if ($tar_size > $Conf{MaxArchiveFileSize}) { |
if ($tar_size > $Conf{MaxArchiveFileSize}) { |
192 |
print ", part $tarfilename is too big $tar_size > $Conf{MaxArchiveFileSize}\n"; |
print ", part $tarfilename is too big $tar_size > $Conf{MaxArchiveFileSize}\n"; |
193 |
$same = 0; |
return 0; |
|
last; |
|
194 |
} |
} |
195 |
|
|
196 |
} |
} |