diff options
author | Rasmus Steinke <rasi@xssn.at> | 2017-08-07 23:24:47 +0200 |
---|---|---|
committer | Rasmus Steinke <rasi@xssn.at> | 2017-08-07 23:24:47 +0200 |
commit | 4217af881fbc2a0a27ac3249ab7ef4eb4d6ac365 (patch) | |
tree | 52323ce3056c699586e788aa3ca4f79a428bf401 | |
parent | b6ccf9b77d740afd48b471cef972a19c3e8b599d (diff) | |
download | perl-app-clerk-4217af881fbc2a0a27ac3249ab7ef4eb4d6ac365.tar.gz perl-app-clerk-4217af881fbc2a0a27ac3249ab7ef4eb4d6ac365.tar.xz |
simplify sorting
-rwxr-xr-x | clerk | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -290,7 +290,7 @@ sub formatted_albums { my %uniq_albums; for my $i (@$rdb) { - my $newkey = join "", $i->@{qw/AlbumArtist Album Date/}; + my $newkey = join "", $i->@{qw/AlbumArtist Date Album/}; if (!exists $uniq_albums{$newkey}) { my $dir = (dirname($i->{uri}) =~ s/\/CD.*$//r); $uniq_albums{$newkey} = {$i->%{qw/AlbumArtist Album Date mtime/}, Dir => $dir}; @@ -314,9 +314,6 @@ 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; - if (! $sorted) { - @albums = sort @albums; - } push @albums, $strval; } |