Parent Directory
| 
Revision Log
| 
Patch
| revision 237 by dpavlin, Wed Nov 16 19:24:32 2005 UTC | revision 253 by dpavlin, Mon Dec 12 13:41:08 2005 UTC | |
|---|---|---|
| # | Line 377 sub get_tgz_size_by_name($) { | Line 377 sub get_tgz_size_by_name($) { |
| 377 | ||
| 378 | my $size = -1; | my $size = -1; |
| 379 | ||
| 380 | if (-f $tgz) { | if (-f "${tgz}.tar.gz") { |
| 381 | $size = (stat($tgz))[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 { !/^\./ && -f "$tgz/$_" } readdir($dir); |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |