diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2001-11-28 21:47:59 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-29 04:43:54 +0000 |
| commit | b4c54cd9e14a01bacf10e218b8a44aa2db58b190 (patch) | |
| tree | ea86131fe58151b21f1a2d47b5520d6a80af3e8b /utils | |
| parent | 2bc9398a793e12a81e9957937d8236d3489778e2 (diff) | |
| download | perl-b4c54cd9e14a01bacf10e218b8a44aa2db58b190.tar.gz | |
Re: More h2ph problems [was Re: h2ph confused by comments in an enum.
Message-Id: <200111282147.fASLlxD04163@crypt.compulink.co.uk>
p4raw-id: //depot/perl@13355
Diffstat (limited to 'utils')
| -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; |