# # This software is Copyright 2005 by Elsevier Inc. You may use it # under the terms of the license at http://perl.plover.com/hop/LICENSE.txt . # ### ### total_size_broken ### ## Chapter 1 section 4 sub total_size { my ($top) = @_; my $total = -s $top; return $total if -f $top; unless (opendir DIR, $top) { warn "Couldn't open directory $top: $!; skipping.\n"; return $total; } my $file; while ($file = readdir DIR) { next if $file eq '.' || $file eq '..'; $total += total_size("$top/$file"); } closedir DIR; return $total; }