allow dash in filename.encoding.csv
authorDobrica Pavlinusic <dpavlin@rot13.org>
Sat, 11 Aug 2012 14:46:23 +0000 (16:46 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Sat, 11 Aug 2012 14:46:23 +0000 (16:46 +0200)
lib/MojoFacets/Import/CSV.pm

index c94ab5a..83c9417 100644 (file)
@@ -16,7 +16,7 @@ sub data {
        my $path = $self->full_path;
 
        my $encoding = 'utf-8';
-       if ( $path =~ m/\.(\w+).csv/i ) {
+       if ( $path =~ m/\.([\w\-]+).csv/i ) {
                $encoding = $1;
        }