diff options
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/h2ph.PL | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/utils/h2ph.PL b/utils/h2ph.PL index f4b04f9ebf..27a7bf6834 100644 --- a/utils/h2ph.PL +++ b/utils/h2ph.PL @@ -489,10 +489,18 @@ sub next_line $out .= $1; } elsif ($in =~ s/^(\\.)//) { # \... $out .= $1; - } elsif ($in =~ s/^('(\\.|[^'\\])*')//) { # '... - $out .= $1; - } elsif ($in =~ s/^("(\\.|[^"\\])*")//) { # "... - $out .= $1; + } elsif ($in =~ /^'/) { # '... + if ($in =~ s/^('(\\.|[^'\\])*')//) { + $out .= $1; + } else { + next READ; + } + } elsif ($in =~ /^"/) { # "... + if ($in =~ s/^("(\\.|[^"\\])*")//) { + $out .= $1; + } else { + next READ; + } } elsif ($in =~ s/^\/\/.*//) { # //... # fall through } elsif ($in =~ m/^\/\*/) { # /*... |