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

This commit is contained in:
Colin Kuskie 2010-05-13 15:50:31 -07:00
parent cdc2ea2547
commit 252138777c

View file

@ -294,7 +294,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
@ -303,7 +303,7 @@ sub getResolutions {
my $storage = $self->getStorageLocation;
# Return a list not including the web view image.
return [ sort { $a <=> $b } grep { $_ ne $self->get("filename") } @{ $storage->getFiles } ];
return [ sort { $a cmp $b } grep { $_ ne $self->get("filename") } @{ $storage->getFiles } ];
}
#----------------------------------------------------------------------------