restrict PERL_PRESERVE_IVUV to things that should really give an

integer, but extend to runtime. Based on:
Subject: Re: [perl #20827] Unexpected scientific notation.
Message-Id: <200302120312.h1C3ChS02613@crypt.compulink.co.uk>

p4raw-id: //depot/perl@18720

1 files changed, 1 insertions, 13 deletions

diff --git a/op.c b/op.c
index 7cb7fad2c5..4cba2c584f 100644
--- a/op.c
+++ b/op.c
@@ -1942,19 +1942,7 @@ Perl_fold_constants(pTHX_ register OP *o)
     op_free(o);
     if (type == OP_RV2GV)
 	return newGVOP(OP_GV, 0, (GV*)sv);
-    else {
-	/* try to smush double to int, but don't smush -2.0 to -2 */
-	if ((SvFLAGS(sv) & (SVf_IOK|SVf_NOK|SVf_POK)) == SVf_NOK &&
-	    type != OP_NEGATE)
-	{
-#ifdef PERL_PRESERVE_IVUV
-	    /* Only bother to attempt to fold to IV if
-	       most operators will benefit  */
-	    SvIV_please(sv);
-#endif
-	}
-	return newSVOP(OP_CONST, 0, sv);
-    }
+    return newSVOP(OP_CONST, 0, sv);
 
   nope:
     return o;