/[suikacvs]/markup/html/whatpm/Whatpm/SWML/Parser.pm
Suika

Diff of /markup/html/whatpm/Whatpm/SWML/Parser.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by wakaba, Fri Nov 14 08:04:16 2008 UTC revision 1.10 by wakaba, Sat Nov 15 13:18:12 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 =~ s/\\(.)/$1/s;            $cell_quoted =~ s/\\(.)/$1/sg;
399            $column++ if $s =~ s/\A\\\z//;            $column++ if $s =~ s/\A\\\z//;
400            $column++ if $s =~ s/^"//;            $column++ if $s =~ s/^"//;
401          }          }

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24