diff options
| author | Bo Lindbergh <blgl@stacken.kth.se> | 2010-07-05 01:31:01 +0200 |
|---|---|---|
| committer | David Golden <dagolden@cpan.org> | 2010-07-06 08:01:47 -0400 |
| commit | a674e8db187f4e33b2e6b9341cc0e30fbcf75bd2 (patch) | |
| tree | 2d8b986c47f3f1b308aaf815684f073e049ab0f3 /pp.c | |
| parent | 333f87f24de2f15740185612410ef911ccfed6a3 (diff) | |
| download | perl-a674e8db187f4e33b2e6b9341cc0e30fbcf75bd2.tar.gz | |
Code for allowing uppercase X/B in hexadecimal/binary numbers (#76296).
Signed-off-by: David Golden <dagolden@cpan.org>
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -3067,11 +3067,11 @@ PP(pp_oct) tmps++, len--; if (*tmps == '0') tmps++, len--; - if (*tmps == 'x') { + if (*tmps == 'x' || *tmps == 'X') { hex: result_uv = grok_hex (tmps, &len, &flags, &result_nv); } - else if (*tmps == 'b') + else if (*tmps == 'b' || *tmps == 'B') result_uv = grok_bin (tmps, &len, &flags, &result_nv); else result_uv = grok_oct (tmps, &len, &flags, &result_nv); |