Change 11386 by pudge@pudge-mobile on 2001/07/16 21:22:32
From Change 11374 in maintperl.
Affected files ...
... //depot/maint-5.6/macperl/utils/h2ph.PL#2 integrate
Differences ...
==== //depot/maint-5.6/macperl/utils/h2ph.PL#2 (xtext) ====
Index: perl/utils/h2ph.PL
--- perl/utils/h2ph.PL.~1~ Mon Jul 16 15:30:05 2001
+++ perl/utils/h2ph.PL Mon Jul 16 15:30:05 2001
@@ -563,9 +563,9 @@
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";
End of Patch.
