diff options
| author | Billy Constantine <wdconsta@cs.adelaide.edu.au> | 1998-06-27 10:43:12 +0930 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-04 02:06:23 +0000 |
| commit | 47a4fd955d79317cd157e4dbc9948a8a704190c9 (patch) | |
| tree | 7f44174c3cc6e06358b9f001a25cbd1a4a771e23 /utils/h2ph.PL | |
| parent | b3eb6a9ba72c92b7decf330d8d63b32ba5499629 (diff) | |
| download | perl-47a4fd955d79317cd157e4dbc9948a8a704190c9.tar.gz | |
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
Diffstat (limited to 'utils/h2ph.PL')
| -rw-r--r-- | utils/h2ph.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/h2ph.PL b/utils/h2ph.PL index c7cff67064..35cb7ccee9 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; |