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..)
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";