Re: Practical example of "Is Perl code maintainable"

[eyepopslikeamosquito]

Just found another:

sub file_size {
  my ($file) = @_;
  if( ! -f $file ) {
    return 0;
  }
  my $dummy;
  my $size;
  ($dummy,$dummy, $dummy, $dummy, $dummy, $dummy, $dummy, $size, $dumm
+y,
          $dummy, $dummy, $dummy, $dummy) = stat($file);
  return $size;
}

which was either written because he never heard of -s or maybe to silence warnings when the file does not exist. I'm tempted to replace it with:

sub file_size { -s shift || 0 }