summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2011-04-08 09:05:38 -0700
committerFather Chrysostomos <sprout@cpan.org>2011-04-08 09:05:38 -0700
commit43fc90f5c25f6dcb07febda8166d26118d6ca29c (patch)
treedd6cfa4ad43dc5c15c3e47e55214f863ea068131 /pp_hot.c
parent33ed2a8b42812a32939df57fc5fdb88edfe9f84f (diff)
downloadperl-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.c13
1 files changed, 0 insertions, 13 deletions
diff --git a/pp_hot.c b/pp_hot.c
index 06b837bf15..f8a61cbdb2 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -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.