#
# 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;
}