From 392cf7d36a119981b49547c562bf133c01c383bf Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 16 Oct 2010 17:29:57 +0200
Subject: [PATCH] fix quotes ("" for single quote)

---
 lib/MojoFacets/Import/CSV.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/MojoFacets/Import/CSV.pm b/lib/MojoFacets/Import/CSV.pm
index fad2dad..b381bc8 100644
--- a/lib/MojoFacets/Import/CSV.pm
+++ b/lib/MojoFacets/Import/CSV.pm
@@ -19,6 +19,7 @@ sub _split_line {
 	my @v;
 	while ( $line ) {
 		my $v;
+		$line =~ s/""/_qq_/gc;
 		if ( $line =~ s/^"\s*([^"]+)\s*"\Q$delimiter\E?// ) {
 			$v = $1;
 		} elsif ( $line =~ s/^\s*([^\Q$delimiter\E]+)\s*\Q$delimiter\E?// ) {
@@ -30,6 +31,7 @@ sub _split_line {
 		}
 
 		$v =~ s/^\s*(.+?)\s*$/$1/;
+		$v =~ s/_qq_/"/g;
 		push @v, $v;
 	}
 
-- 
2.20.1