Fix caching

diff --git a/lib/App/MusicExpo.pm b/lib/App/MusicExpo.pm
index c38d2b7f7b22ff56e6e884ab94be428f233f76a4..3bdef011a6d7086d7ee766068e190a0271eba187 100644 (file)
--- 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} //= [];