Fix a bad sort. Clarify some POD in the Photo.

This commit is contained in:
Colin Kuskie 2010-05-13 15:41:51 -07:00
parent 7258e11e7e
commit 4fef8cb486

View file

@ -213,7 +213,7 @@ sub getExifData {
=head2 getResolutions ( )
Get an array reference of download resolutions that exist for this image.
Does not include the web view image or the thumbnail image.
Does not include the web view image or the thumbnail images.
=cut
@ -222,7 +222,7 @@ sub getResolutions {
my $storage = $self->getStorageLocation;
# Return a list not including the web view image.
return [ sort { $a <=> $b } grep { $_ ne $self->filename } @{ $storage->getFiles } ];
return [ sort { $a cmp $b } grep { $_ ne $self->filename } @{ $storage->getFiles } ];
}
#----------------------------------------------------------------------------