X-Git-Url: http://git.ieval.ro/?p=app-musicexpo.git;a=blobdiff_plain;f=lib%2FApp%2FMusicExpo.pm;h=3bdef011a6d7086d7ee766068e190a0271eba187;hp=c38d2b7f7b22ff56e6e884ab94be428f233f76a4;hb=b90b9dda037a4e41ac4aa11c80f70cb421c5feb2;hpb=447902f92b2e16faaa6116f8b6c43ea46d044d71

diff --git a/lib/App/MusicExpo.pm b/lib/App/MusicExpo.pm
index c38d2b7..3bdef01 100644
--- a/lib/App/MusicExpo.pm
+++ b/lib/App/MusicExpo.pm
@@ -134,10 +134,10 @@ sub run {
 	my %files;
 	for my $file (@ARGV) {
 		my $info;
-		$info = thaw flacinfo $file if $file =~ /\.flac$/i;
-		$info = thaw mp3info $file if $file =~ /\.mp3$/i;
-		$info = thaw vorbisinfo $file if $file =~ /\.og(?:g|a)$/i;
-		$info = thaw mp4info $file if $file =~ /\.mp4|\.aac|\.m4a$/i;
+		$info = thaw scalar flacinfo $file if $file =~ /\.flac$/i;
+		$info = thaw scalar mp3info $file if $file =~ /\.mp3$/i;
+		$info = thaw scalar vorbisinfo $file if $file =~ /\.og(?:g|a)$/i;
+		$info = thaw scalar mp4info $file if $file =~ /\.mp4|\.aac|\.m4a$/i;
 		next unless defined $info;
 		my $basename = fileparse $file, '.flac', '.mp3', '.ogg', '.oga', '.mp4', '.aac', '.m4a';
 		$files{$basename} //= [];