From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 16 Jul 2001 02:46:11 +0000 (+0000)
Subject: integrate change#11374 from maint-5.6
X-Git-Tag: accepted/trunk/20130322.191538~30849
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=4322f456c231b325334e8dc3c4f87b4eb1f04a50;p=platform%2Fupstream%2Fperl.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";