From: Billy Constantine <wdconsta@cs.adelaide.edu.au>
Date: Sat, 27 Jun 1998 01:13:12 +0000 (+0930)
Subject: implemented described fix for h2ph hanging on "enum"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=47a4fd955d79317cd157e4dbc9948a8a704190c9;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;