implemented described fix for h2ph hanging on "enum"

	Subject: Re: h2ph problem on Solaris 2.6/SPARC/Sun compiler
	Message-ID: <Pine.SV4.3.93.980627010407.21715A-100000@xenon.teaching.cs.adelaide.edu.au>

p4raw-id: //depot/perl@1278

diff --git a/utils/h2ph.PL b/utils/h2ph.PL
index c7cff67..35cb7cc 100644 (file)
--- a/utils/h2ph.PL
+++ b/utils/h2ph.PL
@@ -237,7 +237,7 @@ while (defined ($file = next_file())) {
            } elsif(/^ident\s+(.*)/) {
                print OUT $t, "# $1\n";
            }
-       } elsif(/^\s*(typedef\s*)?enum\b/) {
+       } elsif(/^\s*(typedef\s*)?enum(\s+[a-zA-Z_]\w*)?\s*\{/) {
            until(/\}.*?;/) {
                chomp($next = <IN>);
                $_ .= $next;