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

dpavlin · Apr 29, 2013 · 23a76f4 · 23a76f4
1 parent 4ea6847
commit 23a76f4
Showing 1 changed file with 5 additions and 0 deletions.
diff --git 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 } )