Fix a bad sort. Clarify some POD in the Photo.
This commit is contained in:
parent
cdc2ea2547
commit
252138777c
1 changed files with 2 additions and 2 deletions
|
|
@ -294,7 +294,7 @@ sub getExifData {
|
||||||
=head2 getResolutions ( )
|
=head2 getResolutions ( )
|
||||||
|
|
||||||
Get an array reference of download resolutions that exist for this image.
|
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
|
=cut
|
||||||
|
|
||||||
|
|
@ -303,7 +303,7 @@ sub getResolutions {
|
||||||
my $storage = $self->getStorageLocation;
|
my $storage = $self->getStorageLocation;
|
||||||
|
|
||||||
# Return a list not including the web view image.
|
# 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 } ];
|
||||||
}
|
}
|
||||||
|
|
||||||
#----------------------------------------------------------------------------
|
#----------------------------------------------------------------------------
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue