Permalink
Browse files

[CSV] disallow double quotes mid-value

All tests now pass.
  • Loading branch information...
1 parent b4c087d commit 19d5da4e32e8391103aa54945707f5377da4ed54 @masak committed Aug 15, 2009
Showing with 4 additions and 1 deletion.
  1. +4 −1 lib/CSV.pm
View
@@ -7,7 +7,10 @@ class CSV {
$_ = ~$0;
}
if $_ ~~ /<!before \\>[\\\\]*\'/ {
- die "Cannot have unquoted single quotes in value";
+ die "Cannot have unquoted single quotes in value: ", $_;
+ }
+ if $_ ~~ /<!before \\>[\\\\]*\"/ {
+ die "Cannot have unquoted double quotes in value: ", $_;
}
return $_;
}

0 comments on commit 19d5da4

Please sign in to comment.