Permalink
Browse files

[CSV] diasllowed quotes

  • Loading branch information...
1 parent 31f7518 commit 854fa324b26258c21a0182324a45af1cd4664e2c @masak committed Aug 15, 2009
Showing with 5 additions and 2 deletions.
  1. +5 −2 lib/CSV.pm
View
@@ -1,11 +1,14 @@
class CSV {
sub parse-quotes($_ is copy) {
- when /^\' (.*) \'$/ {
+ if $_ ~~ /^\' (.*) \'$/ {
$_ = ~$0;
}
- when /^\" (.*) \"$/ {
+ if $_ ~~ /^\" (.*) \"$/ {
$_ = ~$0;
}
+ if $_ ~~ /<!before \\>[\\\\]*\'/ {
+ die "Cannot have unquoted single quotes in value";
+ }
return $_;
}

0 comments on commit 854fa32

Please sign in to comment.