diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 1999-02-04 18:14:34 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 1999-02-04 18:14:34 +0000 |
| commit | 081ca430c9ad2e97dcd2f26017391102c001c7ed (patch) | |
| tree | c19252cb46cc14f2532598b662a7f1c6e8785f21 /gnu | |
| parent | 3a068180450c974981da137e692c482ec0dabd5f (diff) | |
Hex constants can end in [lLuU]* as well. Fixes limits.ph and others.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/usr.bin/perl/utils/h2ph.PL | 10 |
1 files 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')"; } |