From 85935d8e7bc504b57c9aea69973920ebe632631d Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Fri, 8 Apr 2011 09:08:02 -0700 Subject: [PATCH] Revert "[perl #87708] $tied / $tied under use integer" This reverts most of commit 76422f81b675011beffbdb66c981a36b6fbf4a6b. It is now unnecessary as of commit 75ea7a1. --- pp.c | 5 +++-- t/lib/warnings/9uninit | 1 - 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/pp.c b/pp.c index 941cc9d..9858f91 100644 --- a/pp.c +++ b/pp.c @@ -2846,14 +2846,15 @@ PP(pp_i_multiply) PP(pp_i_divide) { + IV num; dVAR; dSP; dATARGET; tryAMAGICbin_MG(div_amg, AMGf_assign); { dPOPTOPssrl; - IV num = SvIV_nomg(left); - IV value = left==right ? SvIV(right) : SvIV_nomg(right); + IV value = SvIV_nomg(right); if (value == 0) DIE(aTHX_ "Illegal division by zero"); + num = SvIV_nomg(left); /* avoid FPE_INTOVF on some platforms when num is IV_MIN */ if (value == -1) diff --git a/t/lib/warnings/9uninit b/t/lib/warnings/9uninit index 4472db4..b73edf4 100644 --- a/t/lib/warnings/9uninit +++ b/t/lib/warnings/9uninit @@ -562,7 +562,6 @@ Use of uninitialized value $m1 in integer subtraction (-) at - line 7. Use of uninitialized value $g1 in integer subtraction (-) at - line 7. Use of uninitialized value $m1 in integer multiplication (*) at - line 8. Use of uninitialized value $g1 in integer multiplication (*) at - line 8. -Use of uninitialized value $m1 in integer division (/) at - line 9. Use of uninitialized value $g1 in integer division (/) at - line 9. Use of uninitialized value $m2 in integer division (/) at - line 10. Use of uninitialized value $m1 in integer modulus (%) at - line 11. -- 2.7.4