diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-04-21 10:48:00 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-21 15:03:32 +0000 |
| commit | cd4e1efaf9a1b7be76cd92aca2942583177ae5ed (patch) | |
| tree | d8d03cc30b3de98c4983686d673468423b39a477 /utils | |
| parent | 47bfe92fb81ca6f2d7b499ac0c77dd56550ac150 (diff) | |
| download | perl-cd4e1efaf9a1b7be76cd92aca2942583177ae5ed.tar.gz | |
Confused by "#if &__GNUC_PREREQ (2,97)"
Message-ID: <20010421094759.B19736@blackrider.blackstar.co.uk>
p4raw-id: //depot/perl@9769
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 ab6cad9560..d852fc2422 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*$/) { |