use comma (,) as separator for *.csv file is it exists

[MojoFacets.git] / lib / MojoFacets / Import / CSV.pm

diff --git a/lib/MojoFacets/Import/CSV.pm b/lib/MojoFacets/Import/CSV.pm
index d571144..438e7b8 100644 (file)
--- a/lib/MojoFacets/Import/CSV.pm
+++ b/lib/MojoFacets/Import/CSV.pm
@@ -46,6 +46,11 @@ sub data {
                $sep_char = shift @sep_by_usage;
        }
 
+       if ( $sep_char !~ m/,/ && $possible_delimiters->{','} && $path =~ m/\.csv/i ) {
+               $sep_char = ',';
+               warn "## csv file detected so prefer , as separator";
+       }
+
        warn "sep_char = [$sep_char] for $path\n";
 
        my $csv = Text::CSV->new ( { binary => 1, eol => $/, sep_char => $sep_char } )