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 | edf6e4ec734b175d478b17f1da78d9e6fe60025e (patch) | |
| tree | ea86131fe58151b21f1a2d47b5520d6a80af3e8b /utils | |
| parent | 0740bb5b1445c265b9ce58c0b1e10d8ecc747f77 (diff) | |
| download | perl-edf6e4ec734b175d478b17f1da78d9e6fe60025e.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; |