From fbeeac227aa136fbcabd63f32873f56431af62a1 Mon Sep 17 00:00:00 2001
From: Marius Gavrilescu <marius@ieval.ro>
Date: Sun, 2 Aug 2015 00:57:39 +0300
Subject: [PATCH] Force scalar context on $ogg->comment
---
lib/App/MusicExpo.pm | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/lib/App/MusicExpo.pm b/lib/App/MusicExpo.pm
index 18ee13c..9422a07 100644
--- a/lib/App/MusicExpo.pm
+++ b/lib/App/MusicExpo.pm
@@ -75,13 +75,13 @@ sub vorbisinfo{
freeze +{
format => 'Vorbis',
- title => $ogg->comment('TITLE'),
- artist => $ogg->comment('artist'),
- year => $ogg->comment('DATE'),
- album => $ogg->comment('ALBUM'),
- tracknumber => $ogg->comment('TRACKNUMBER'),
- tracktotal => $ogg->comment('TRACKTOTAL'),
- genre => $ogg->comment('GENRE'),
+ title => scalar $ogg->comment('TITLE'),
+ artist => scalar $ogg->comment('artist'),
+ year => scalar $ogg->comment('DATE'),
+ album => scalar $ogg->comment('ALBUM'),
+ tracknumber => scalar $ogg->comment('TRACKNUMBER'),
+ tracktotal => scalar $ogg->comment('TRACKTOTAL'),
+ genre => scalar $ogg->comment('GENRE'),
file => scalar fileparse $file,
}
}
--
2.39.5