From 99ed927b9cb7383662696a50cb0d8e2aa25d47d7 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 9 Dec 2001 23:45:57 +0000
Subject: [PATCH] h2ph updates from OpenBSD 3.0.

p4raw-id: //depot/perl@13573
---
 utils/h2ph.PL | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/utils/h2ph.PL b/utils/h2ph.PL
index 901f0bb..7903996 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;
-- 
2.7.4