diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-09 23:45:57 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-09 23:45:57 +0000 |
| commit | 99ed927b9cb7383662696a50cb0d8e2aa25d47d7 (patch) | |
| tree | c0cdf578145fe6094ecf21acf011843cb0fd85ec /utils | |
| parent | aed526b9b8fe19b0a180adeac543ddec2025c76b (diff) | |
| download | perl-99ed927b9cb7383662696a50cb0d8e2aa25d47d7.tar.gz | |
h2ph updates from OpenBSD 3.0.
p4raw-id: //depot/perl@13573
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 901f0bb8f8..7903996876 100644 --- a/utils/h2ph.PL +++ b/utils/h2ph.PL @@ -338,7 +338,7 @@ sub expr { # Eliminate typedefs /\(([\w\s]+)[\*\s]*\)\s*[\w\(]/ && do { foreach (split /\s+/, $1) { # Make sure all the words are types, - last unless ($isatype{$_} or $_ eq 'struct'); + last unless ($isatype{$_} or $_ eq 'struct' or $_ eq 'union'); } s/\([\w\s]+[\*\s]*\)// && next; # then eliminate them. }; @@ -361,7 +361,7 @@ sub expr { }; s/^([_a-zA-Z]\w*)// && do { my $id = $1; - if ($id eq 'struct') { + if ($id eq 'struct' || $id eq 'union') { s/^\s+(\w+)//; $id .= ' ' . $1; $isatype{$id} = 1; |