diff options
| author | Andy Lester <andy@petdance.com> | 2005-04-07 12:44:42 -0500 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-04-08 12:18:42 +0000 |
| commit | 2db3864ffcaccbf832bbb3814303b4f6beef8963 (patch) | |
| tree | afec42c61fea1276efdac7452e1ec685c6676c57 /pp_hot.c | |
| parent | 45977657b0fa2c29b268b817f40e6b295a501d39 (diff) | |
| download | perl-2db3864ffcaccbf832bbb3814303b4f6beef8963.tar.gz | |
Removing Y2K warnings
Message-ID: <20050407224442.GA23895@petdance.com>
p4raw-id: //depot/perl@24205
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 11 |
1 files changed, 0 insertions, 11 deletions
@@ -178,17 +178,6 @@ PP(pp_concat) SvUTF8_off(TARG); } -#if defined(PERL_Y2KWARN) - if ((SvIOK(right) || SvNOK(right)) && ckWARN(WARN_Y2K) && SvOK(TARG)) { - if (llen >= 2 && lpv[llen - 2] == '1' && lpv[llen - 1] == '9' - && (llen == 2 || !isDIGIT(lpv[llen - 3]))) - { - Perl_warner(aTHX_ packWARN(WARN_Y2K), "Possible Y2K bug: %s", - "about to append an integer to '19'"); - } - } -#endif - if (lbyte != rbyte) { if (lbyte) sv_utf8_upgrade_nomg(TARG); |