diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-12-27 14:52:21 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-28 22:58:52 -0800 |
| commit | dcbac5bbcda3f6b893eade5bc95878a443cbe563 (patch) | |
| tree | 8e69379c182533f93148eb4a6dc7ed69d197cdb1 /numeric.c | |
| parent | 6ad282c70d80576d5d66b25af19780fde18afd42 (diff) | |
| download | perl-dcbac5bbcda3f6b893eade5bc95878a443cbe563.tar.gz | |
diag_listed_as galore
In two instances, I actually modified to code to avoid %s for a
constant string, as it should be faster that way.
Diffstat (limited to 'numeric.c')
| -rw-r--r-- | numeric.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -180,6 +180,7 @@ Perl_grok_bin(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result) continue; } /* Bah. We're just overflowed. */ + /* diag_listed_as: Integer overflow in %s number */ Perl_ck_warner_d(aTHX_ packWARN(WARN_OVERFLOW), "Integer overflow in binary number"); overflowed = TRUE; @@ -302,6 +303,7 @@ Perl_grok_hex(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result) continue; } /* Bah. We're just overflowed. */ + /* diag_listed_as: Integer overflow in %s number */ Perl_ck_warner_d(aTHX_ packWARN(WARN_OVERFLOW), "Integer overflow in hexadecimal number"); overflowed = TRUE; @@ -407,6 +409,7 @@ Perl_grok_oct(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result) continue; } /* Bah. We're just overflowed. */ + /* diag_listed_as: Integer overflow in %s number */ Perl_ck_warner_d(aTHX_ packWARN(WARN_OVERFLOW), "Integer overflow in octal number"); overflowed = TRUE; |