diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-08 14:22:10 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-08 14:22:10 +0000 |
| commit | 1be505aa59634a8036c429411fb42d2d38daabb8 (patch) | |
| tree | 6869d3eed443726ae0c267a1c50239ae33ba5d20 /utils | |
| parent | 11655e665fbfd19a01753ca489fc587ef54d587d (diff) | |
| download | perl-1be505aa59634a8036c429411fb42d2d38daabb8.tar.gz | |
h2ph: handle function pointer constants.
p4raw-id: //depot/perl@17093
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/h2ph.PL | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/utils/h2ph.PL b/utils/h2ph.PL index 783dfc6688..206df493fb 100644 --- a/utils/h2ph.PL +++ b/utils/h2ph.PL @@ -115,6 +115,7 @@ while (defined (my $file = next_file())) { $name = $1; $new = ''; s/\s+$//; + s/\(\w+\s*\(\*\)\s*\(\w*\)\)\s*(-?\d+)/$1/; # (int (*)(foo_t))0 if (s/^\(([\w,\s]*)\)//) { $args = $1; my $proto = '() '; |