From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 21 Mar 2007 12:53:56 +0000 (+0000)
Subject: Don't try to set the NV on a typeglob-in-action. Should cure bug
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e22a937e7f75d5261d07ea813dfc06a4dbaa322a;p=p5sagit%2Fp5-mst-13.2.git

Don't try to set the NV on a typeglob-in-action. Should cure bug
41920.

p4raw-id: //depot/perl@30659
---

diff --git a/sv.c b/sv.c
index 44b9122..51dffcb 100644
--- a/sv.c
+++ b/sv.c
@@ -1320,7 +1320,8 @@ Perl_sv_upgrade(pTHX_ register SV *sv, svtype new_type)
 	 * NV slot, but the new one does, then we need to initialise the
 	 * freshly created NV slot with whatever the correct bit pattern is
 	 * for 0.0  */
-	if (old_type_details->zero_nv && !new_type_details->zero_nv)
+	if (old_type_details->zero_nv && !new_type_details->zero_nv
+	    && !isGV_with_GP(sv))
 	    SvNV_set(sv, 0);
 #endif