use utf-8 as default encoding for .cvs files
authorDobrica Pavlinusic <dpavlin@rot13.org>
Sat, 16 Oct 2010 12:47:42 +0000 (14:47 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Sat, 16 Oct 2010 12:47:42 +0000 (14:47 +0200)
lib/MojoFacets/Import/CSV.pm

index 9a3b45c..479308b 100644 (file)
@@ -21,9 +21,9 @@ sub data {
        my $encoding = 'utf-8';
        if ( $path =~ m/\.(\w+).csv/i ) {
                $encoding = $1;
        my $encoding = 'utf-8';
        if ( $path =~ m/\.(\w+).csv/i ) {
                $encoding = $1;
-               warn "decoding ", length($data), " bytes using $encoding\n";
-               $data = decode($encoding, $data);
        }
        }
+       warn "decoding ", length($data), " bytes using $encoding\n";
+       $data = decode($encoding, $data);
 
        my @lines = split(/\r?\n/, $data);
        $data = { items => [] };
 
        my @lines = split(/\r?\n/, $data);
        $data = { items => [] };