Use \. in extension regexes

diff --git a/lib/App/MusicExpo.pm b/lib/App/MusicExpo.pm
index e9c0b9579e5556e2839a860ce2aa727ec46bf549..7b5f4e2f46d7ba70d0bcb3b7852f03d1b81afb9c 100644 (file)
--- a/lib/App/MusicExpo.pm
+++ b/lib/App/MusicExpo.pm
@@ -106,9 +106,9 @@ 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 flacinfo $file if $file =~ /\.flac$/i;
+               $info = thaw mp3info $file if $file =~ /\.mp3$/i;
+               $info = thaw vorbisinfo $file if $file =~ /\.og(?:g|a)$/i;
                next unless defined $info;
                my $basename = fileparse $file, '.flac', '.mp3', '.ogg', '.oga';
                $files{$basename} //= [];