diff options
Diffstat (limited to 'utils/h2ph.PL')
| -rw-r--r-- | utils/h2ph.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/h2ph.PL b/utils/h2ph.PL index 4dab91680b..901f0bb8f8 100644 --- a/utils/h2ph.PL +++ b/utils/h2ph.PL @@ -438,7 +438,7 @@ sub next_line } elsif ($in =~ s/^("(\\.|[^"\\])*")//) { # "... $out .= $1; } elsif ($in =~ s/^\/\/.*//) { # //... - next READ; + # fall through } elsif ($in =~ m/^\/\*/) { # /*... # C comment removal adapted from perlfaq6: if ($in =~ s/^\/\*[^*]*\*+([^\/*][^*]*\*+)*\///) { @@ -455,7 +455,7 @@ sub next_line } } - last READ; + last READ if $out =~ /\S/; } return $out; |