PERFORCE change 11386 for review

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.