From: Gurusamy Sarathy Date: Mon, 16 Jul 2001 02:46:11 +0000 (+0000) Subject: integrate change#11374 from maint-5.6 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4322f456c231b325334e8dc3c4f87b4eb1f04a50;p=p5sagit%2Fp5-mst-13.2.git 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..) --- diff --git a/utils/h2ph.PL b/utils/h2ph.PL index 7cc3055..9082e14 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";