diff options
author | Rasmus Steinke <rasi@xssn.at> | 2017-08-05 21:12:31 +0200 |
---|---|---|
committer | Rasmus Steinke <rasi@xssn.at> | 2017-08-05 21:12:31 +0200 |
commit | 2b9ea774c6eb1e3ffdbfc99f555dc45dd1023c54 (patch) | |
tree | 3c616ce91392b5bb86c85225754aa9da916a753d | |
parent | 1b1b8bce0d8c0071d830cff6d2795be8ecff60c6 (diff) | |
download | perl-app-clerk-2b9ea774c6eb1e3ffdbfc99f555dc45dd1023c54.tar.gz perl-app-clerk-2b9ea774c6eb1e3ffdbfc99f555dc45dd1023c54.tar.xz |
fix quoting
-rwxr-xr-x | clerk | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -225,7 +225,7 @@ sub formatted_albums { } for my $k (@skeys) { - my @vals = ((map { "$_" // "Unknown" } $uniq_albums{$k}->@{qw/AlbumArtist Date Album/}), $uniq_albums{$k}->{Dir}); + my @vals = ((map { $_ // "Unknown" } $uniq_albums{$k}->@{qw/AlbumArtist Date Album/}), $uniq_albums{$k}->{Dir}); my $strval = sprintf $fmtstr."%s\n", @vals; push @albums, $strval; @@ -238,7 +238,7 @@ sub formatted_tracks { my ($rdb) = @_; my $fmtstr = join "", map {"%-${_}.${_}s\t"} ($track_l, $title_l, $artist_l, $album_l); my @tracks = map { - sprintf $fmtstr."%-s\n", (map { "$_" // "Unknown" } $_->@{qw/Track Title Artist Album/}), $_->{uri}; + sprintf $fmtstr."%-s\n", (map { $_ // "Unknown" } $_->@{qw/Track Title Artist Album/}), $_->{uri}; # sprintf $fmtstr."%-s\n", $_->@{qw/Track Title Artist Album uri/} } @{$rdb}; |