Parent Directory
| 
Revision Log
| 
Patch
| revision 1.8 by wakaba, Sun Nov 9 10:05:46 2008 UTC | revision 1.9 by wakaba, Fri Nov 14 08:04:16 2008 UTC | |
|---|---|---|
| # | Line 395 sub parse_char_string ($$$;$) { | Line 395 sub parse_char_string ($$$;$) { |
| 395 | $s =~ s/^((?>[^"\\]|\\.)*)//; | $s =~ s/^((?>[^"\\]|\\.)*)//; |
| 396 | $cell_quoted = $1; | $cell_quoted = $1; |
| 397 | $column += 1 + length $cell_quoted; | $column += 1 + length $cell_quoted; |
| 398 | $cell_quoted =~ tr/\\//d; | $cell_quoted =~ s/\\(.)/$1/s; |
| 399 | $column++ if $s =~ s/\A\\\z//; | $column++ if $s =~ s/\A\\\z//; |
| 400 | $column++ if $s =~ s/^"//; | $column++ if $s =~ s/^"//; |
| 401 | } | } |
|
||||||||
| [email protected] | ViewVC Help |
| Powered by ViewVC 1.1.24 |