Add the Storage::Image test. This really, really wants to be done with

Test::Class in the long term.
Fixed a bug where Storage::Image's getFiles does not obey the showAll switch
that its parent has.
This commit is contained in:
Colin Kuskie 2007-07-07 03:38:16 +00:00
parent dff08ef533
commit c07b0b9c72
2 changed files with 59 additions and 1 deletions

View file

@ -179,7 +179,7 @@ Returns an array reference of the files in this storage location.
sub getFiles {
my $self = shift;
my $files = $self->SUPER::getFiles;
my $files = $self->SUPER::getFiles(@_);
my @newFiles;
foreach my $file (@{$files}) {
next if $file =~ /^thumb-/;