From 081ca430c9ad2e97dcd2f26017391102c001c7ed Mon Sep 17 00:00:00 2001 From: "Todd C. Miller" Date: Thu, 4 Feb 1999 18:14:34 +0000 Subject: Hex constants can end in [lLuU]* as well. Fixes limits.ph and others. --- gnu/usr.bin/perl/utils/h2ph.PL | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/gnu/usr.bin/perl/utils/h2ph.PL b/gnu/usr.bin/perl/utils/h2ph.PL index c1809ecf854..fc072532016 100644 --- a/gnu/usr.bin/perl/utils/h2ph.PL +++ b/gnu/usr.bin/perl/utils/h2ph.PL @@ -192,11 +192,11 @@ exit $Exit; sub expr { while ($_ ne '') { s/^\&//; # hack for things that take the address of - s/^(\s+)// && do {$new .= ' '; next;}; - s/^(0x[0-9a-fA-F]+)// && do {$new .= $1; next;}; - s/^(\d+)\s*[LlUu]*// && do {$new .= $1; next;}; - s/^("(\\"|[^"])*")// && do {$new .= $1; next;}; - s/^'((\\"|[^"])*)'// && do { + s/^(\s+)// && do {$new .= ' '; next;}; + s/^(0x[0-9a-fA-F]+)\s*[LlUu]*// && do {$new .= $1; next;}; + s/^(\d+)\s*[LlUu]*// && do {$new .= $1; next;}; + s/^("(\\"|[^"])*")// && do {$new .= $1; next;}; + s/^'((\\"|[^"])*)'// && do { if ($curargs{$1}) { $new .= "ord('\$$1')"; } -- cgit v1.2.3