diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2001-07-16 02:46:11 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2001-07-16 02:46:11 +0000 |
| commit | 4322f456c231b325334e8dc3c4f87b4eb1f04a50 (patch) | |
| tree | ce277cfcbf7b6fe1ceb695cfef6bce96920eecb5 /utils/h2ph.PL | |
| parent | 7d32079de34bcc452edf7be81979d07bde79d128 (diff) | |
| download | perl-4322f456c231b325334e8dc3c4f87b4eb1f04a50.tar.gz | |
integrate change#11374 from maint-5.6
make h2ph grok ccsymbols fo the form 1234L, 1234ULL etc.
p4raw-link: @11374 on //depot/maint-5.6/perl: 57906130e77fb46dc9fa6b8042902b2f8f84dbb9
p4raw-id: //depot/perl@11375
p4raw-integrated: from //depot/maint-5.6/perl@11373 'merge in'
utils/h2ph.PL (@9312..)
Diffstat (limited to 'utils/h2ph.PL')
| -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 7cc3055ecd..9082e14361 100644 --- a/utils/h2ph.PL +++ b/utils/h2ph.PL @@ -610,9 +610,9 @@ sub build_preamble_if_necessary print PREAMBLE "# $_=$define{$_}\n"; } - if ($define{$_} =~ /^\d+$/) { + if ($define{$_} =~ /^(\d+)U?L{0,2}$/i) { print PREAMBLE - "unless (defined &$_) { sub $_() { $define{$_} } }\n\n"; + "unless (defined &$_) { sub $_() { $1 } }\n\n"; } elsif ($define{$_} =~ /^\w+$/) { print PREAMBLE "unless (defined &$_) { sub $_() { &$define{$_} } }\n\n"; |