From 1549062d92de87827a1e0016c898145f5a47eb63 Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Sat, 25 Oct 2014 12:34:03 +0300 Subject: [PATCH] Use \. in extension regexes --- lib/App/MusicExpo.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/App/MusicExpo.pm b/lib/App/MusicExpo.pm index e9c0b95..7b5f4e2 100644 --- 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} //= []; -- 2.39.2