summaryrefslogtreecommitdiffstats
path: root/clerk
diff options
context:
space:
mode:
authorRasmus Steinke <rasi@xssn.at>2017-08-07 23:11:52 +0200
committerRasmus Steinke <rasi@xssn.at>2017-08-07 23:11:52 +0200
commitb6ccf9b77d740afd48b471cef972a19c3e8b599d (patch)
treedc4baeb67a7e4e9385f7b023a0f04fbebd44d9ac /clerk
parente77c12f2b53c1012636a3c6c59ebd42f84aacb55 (diff)
downloadperl-app-clerk-b6ccf9b77d740afd48b471cef972a19c3e8b599d.tar.gz
perl-app-clerk-b6ccf9b77d740afd48b471cef972a19c3e8b599d.tar.xz
dont run sort for latest view
Diffstat (limited to 'clerk')
-rwxr-xr-xclerk5
1 files changed, 3 insertions, 2 deletions
diff --git a/clerk b/clerk
index b5e7576..02bc14c 100755
--- a/clerk
+++ b/clerk
@@ -314,9 +314,10 @@ sub formatted_albums {
for my $k (@skeys) {
my @vals = ((map { $_ // "Unknown" } $uniq_albums{$k}->@{qw/AlbumArtist Date Album/}), $uniq_albums{$k}->{Dir});
my $strval = sprintf $fmtstr."%s\n", @vals;
- @albums = sort @albums;
+ if (! $sorted) {
+ @albums = sort @albums;
+ }
push @albums, $strval;
-
}
return \@albums;