diff options
-rwxr-xr-x | clerk | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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; |