diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-10 12:23:21 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-10 12:23:21 +0000 |
| commit | 651978e76e838ccd7ba8590fab59df5320c0a952 (patch) | |
| tree | ab116c89df024ebb3e4ab31807569d039b54b1d5 /util.c | |
| parent | 9287a323f956849348c19a4d945e5121df84e5d3 (diff) | |
| download | perl-651978e76e838ccd7ba8590fab59df5320c0a952.tar.gz | |
Change t/pragma/warn oct()/hex() overflow tests to use %Config
to adapt to the underlying platform (the binary, 0b1..., test
was broken in 64-bit platforms). Also change "hex" in the
warning messages to "hexadecimal" to match "binary" and "octal".
p4raw-id: //depot/cfgperl@3662
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2815,7 +2815,7 @@ Perl_scan_hex(pTHX_ char *start, I32 len, I32 *retlen) dTHR; --s; if (ckWARN(WARN_UNSAFE)) - Perl_warner(aTHX_ WARN_UNSAFE,"Illegal hex digit '%c' ignored", *s); + Perl_warner(aTHX_ WARN_UNSAFE,"Illegal hexadecimal digit '%c' ignored", *s); break; } } @@ -2823,7 +2823,7 @@ Perl_scan_hex(pTHX_ char *start, I32 len, I32 *retlen) if (!overflowed && (n >> 4) != retval) { dTHR; if (ckWARN_d(WARN_UNSAFE)) - Perl_warner(aTHX_ WARN_UNSAFE, "Integer overflow in hex number"); + Perl_warner(aTHX_ WARN_UNSAFE, "Integer overflow in hexadecimal number"); overflowed = TRUE; } retval = n | ((tmp - PL_hexdigit) & 15); |