diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2001-11-28 04:19:21 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-28 13:28:08 +0000 |
| commit | 4e15175a644dc94dffd2be1324573f20050a9a0f (patch) | |
| tree | fa4c3758c25a6a5161fcb64a0905f33580904e7c /utils | |
| parent | 2ab0daaa9d669e86986dd190612b32863c07ec3c (diff) | |
| download | perl-4e15175a644dc94dffd2be1324573f20050a9a0f.tar.gz | |
Re: h2ph confused by comments in an enum.
Date: Wed, 28 Nov 2001 04:19:21 +0000
Message-Id: <200111280419.fAS4JLD17887@crypt.compulink.co.uk>
Subject: Re: More h2ph problems [was Re: h2ph confused by comments in an enum.]
From: Hugo van der Sanden <hv@crypt.compulink.co.uk>
Date: Wed, 28 Nov 2001 13:36:35 +0000
Message-Id: <200111281336.fASDaZG30245@crypt.compulink.co.uk>
p4raw-id: //depot/perl@13338
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 9082e14361..4dab91680b 100644 --- a/utils/h2ph.PL +++ b/utils/h2ph.PL @@ -240,7 +240,7 @@ while (defined (my $file = next_file())) { } } elsif(/^\s*(typedef\s*)?enum\s*(\s+[a-zA-Z_]\w*\s*)?/) { until(/\{[^}]*\}.*;/ || /;/) { - last unless defined ($next = <IN>); + last unless defined ($next = next_line()); chomp $next; # drop "#define FOO FOO" in enums $next =~ s/^\s*#\s*define\s+(\w+)\s+\1\s*$//; @@ -438,7 +438,7 @@ sub next_line } elsif ($in =~ s/^("(\\.|[^"\\])*")//) { # "... $out .= $1; } elsif ($in =~ s/^\/\/.*//) { # //... - last READ; + next READ; } elsif ($in =~ m/^\/\*/) { # /*... # C comment removal adapted from perlfaq6: if ($in =~ s/^\/\*[^*]*\*+([^\/*][^*]*\*+)*\///) { |