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 ab6cad9560921378445b53fbadd058d18c8e1e6c..d852fc24222ea0c35df2cf8683e244737f54cdb6 100644 (file)
--- 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*$/) {