From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 25 Oct 2014 09:34:03 +0000 (+0300)
Subject: Use \. in extension regexes
X-Git-Tag: 0.004~5
X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=1549062d92de87827a1e0016c898145f5a47eb63;p=app-musicexpo.git

Use \. in extension regexes
---

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} //= [];