diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-04-08 09:05:38 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-04-08 09:05:38 -0700 |
commit | 43fc90f5c25f6dcb07febda8166d26118d6ca29c (patch) | |
tree | dd6cfa4ad43dc5c15c3e47e55214f863ea068131 /pp_hot.c | |
parent | 33ed2a8b42812a32939df57fc5fdb88edfe9f84f (diff) | |
download | perl-43fc90f5c25f6dcb07febda8166d26118d6ca29c.tar.gz |
Remove unnecessary code from pp_add
This code, added recently in 4c3ac4b and amended in 837c879, has been
unnecessary since commit 75ea7a1.
Diffstat (limited to 'pp_hot.c')
-rw-r--r-- | pp_hot.c | 13 |
1 files changed, 0 insertions, 13 deletions
@@ -501,19 +501,6 @@ PP(pp_add) svl = TOPm1s; useleft = USE_LEFT(svl); - if(useleft && svr == svl && SvGMAGICAL(svl)) { - /* Print the uninitialized warning now, so it includes the vari- - able name. */ - if (!SvOK(svl)) { - if (ckWARN(WARN_UNINITIALIZED)) report_uninit(svl); - useleft = 0; - } - /* Non-magical sv_mortalcopy */ - svl = sv_newmortal(); - sv_setsv_flags(svl, svr, 0); - SvGETMAGIC(svr); - } - #ifdef PERL_PRESERVE_IVUV /* We must see if we can perform the addition with integers if possible, as the integer code detects overflow while the NV code doesn't. |