From: Michael G. Schwern <schwern@pobox.com>
Date: Sat, 21 Apr 2001 09:48:00 +0000 (+0100)
Subject: Confused by "#if &__GNUC_PREREQ (2,97)"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cd4e1efaf9a1b7be76cd92aca2942583177ae5ed;p=p5sagit%2Fp5-mst-13.2.git

Confused by "#if &__GNUC_PREREQ (2,97)"
Message-ID: <20010421094759.B19736@blackrider.blackstar.co.uk>

p4raw-id: //depot/perl@9769
---

diff --git a/utils/h2ph.PL b/utils/h2ph.PL
index ab6cad9..d852fc2 100644
--- a/utils/h2ph.PL
+++ b/utils/h2ph.PL
@@ -370,8 +370,8 @@ sub expr {
 		$new .= '->' if /^[\[\{]/;
 	    } elsif ($id eq 'defined') {
 		$new .= 'defined';
-	    } elsif (/^\(/) {
-		s/^\((\w),/("$1",/ if $id =~ /^_IO[WR]*$/i;	# cheat
+	    } elsif (/^\s*\(/) {
+		s/^\s*\((\w),/("$1",/ if $id =~ /^_IO[WR]*$/i;	# cheat
 		$new .= " &$id";
 	    } elsif ($isatype{$id}) {
 		if ($new =~ /{\s*$/) {