- and further we have also "emeta, it hurts
for my $fname (@ARGV) {
my @parsed;
for my $fmt (sort { length $b<=>length $a; } keys %{+FORMATS}) {
- (my $fmtt=$fmt)=~s/(\W)/\\$1/g;
- last if @parsed=$fname=~m#^(.*?)([^/]+)([.=])($fmtt)$#i;
+ last if @parsed=$fname=~m#^(.*?)([^/]+)([.=])(\Q$fmt\E)$#i;
}
$parsed[3] or die "Extension not found for archive: $fname";
my($path,$base,$ext)=@parsed[0,1,3];