| 381 |
$size = (stat("${tgz}.tar.gz"))[7]; |
$size = (stat("${tgz}.tar.gz"))[7]; |
| 382 |
} elsif (-d $tgz) { |
} elsif (-d $tgz) { |
| 383 |
opendir(my $dir, $tgz) || die "can't opendir $tgz: $!"; |
opendir(my $dir, $tgz) || die "can't opendir $tgz: $!"; |
| 384 |
my @parts = grep { !/^\./ && -f "$tgz/$_" } readdir($dir); |
my @parts = grep { !/^\./ && !/md5/ && -f "$tgz/$_" } readdir($dir); |
| 385 |
$size = 0; |
$size = 0; |
| 386 |
foreach my $part (@parts) { |
foreach my $part (@parts) { |
| 387 |
$size += (stat("$tgz/$part"))[7] || die "can't stat $tgz/$part: $!"; |
$size += (stat("$tgz/$part"))[7] || die "can't stat $tgz/$part: $!"; |
| 388 |
} |
} |
| 389 |
closedir $dir; |
closedir $dir; |
| 390 |
|
} else { |
| 391 |
|
return -1; |
| 392 |
} |
} |
| 393 |
|
|
| 394 |
return $size; |
return $size; |
Parent Directory
| 
Revision Log
| 
Patch