fix sprintf for albums

1 files changed, 2 insertions, 2 deletions

diff --git a/clerk b/clerk
index 4aee075..96b0702 100755
--- a/clerk
+++ b/clerk
@@ -227,7 +227,7 @@ sub formated_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;
 
@@ -240,7 +240,7 @@ sub formated_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};