From e22a937e7f75d5261d07ea813dfc06a4dbaa322a Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Wed, 21 Mar 2007 12:53:56 +0000 Subject: [PATCH] Don't try to set the NV on a typeglob-in-action. Should cure bug 41920. p4raw-id: //depot/perl@30659 --- sv.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 2.7.4