Return to lond CVS log | Up to [LON-CAPA] / loncom |
version 1.361, 2007/03/01 17:51:44 | version 1.362, 2007/03/12 22:24:58 |
---|---|
Line 1268 sub du_handler { | Line 1268 sub du_handler { |
my $code=sub { | my $code=sub { |
if ($_=~/\.\d+\./) { return;} | if ($_=~/\.\d+\./) { return;} |
if ($_=~/\.meta$/) { return;} | if ($_=~/\.meta$/) { return;} |
if (-d $_) { return;} | |
$total_size+=(stat($_))[7]; | $total_size+=(stat($_))[7]; |
}; | }; |
chdir($ududir); | chdir($ududir); |