Change 13338 by jhi@alpha on 2001/11/28 13:28:08
Subject: Re: h2ph confused by comments in an enum.
From: Hugo van der Sanden <[EMAIL PROTECTED]>
Date: Wed, 28 Nov 2001 04:19:21 +0000
Message-Id: <[EMAIL PROTECTED]>
Subject: Re: More h2ph problems [was Re: h2ph confused by comments in an enum.]
From: Hugo van der Sanden <[EMAIL PROTECTED]>
Date: Wed, 28 Nov 2001 13:36:35 +0000
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/utils/h2ph.PL#27 edit
Differences ...
==== //depot/perl/utils/h2ph.PL#27 (text) ====
Index: perl/utils/h2ph.PL
--- perl/utils/h2ph.PL.~1~ Wed Nov 28 06:45:05 2001
+++ perl/utils/h2ph.PL Wed Nov 28 06:45:05 2001
@@ -240,7 +240,7 @@
}
} 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 @@
} elsif ($in =~ s/^("(\\.|[^"\\])*")//) { # "...
$out .= $1;
} elsif ($in =~ s/^\/\/.*//) { # //...
- last READ;
+ next READ;
} elsif ($in =~ m/^\/\*/) { # /*...
# C comment removal adapted from perlfaq6:
if ($in =~ s/^\/\*[^*]*\*+([^\/*][^*]*\*+)*\///) {
End of Patch.
