diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-03-21 12:53:56 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-03-21 12:53:56 +0000 |
| commit | e22a937e7f75d5261d07ea813dfc06a4dbaa322a (patch) | |
| tree | 5cfaca3e288ca620395b673d208e919e53cd6f4c /sv.c | |
| parent | 9c59bb285ff1665cb0f68765e5ef36404adef334 (diff) | |
| download | perl-e22a937e7f75d5261d07ea813dfc06a4dbaa322a.tar.gz | |
Don't try to set the NV on a typeglob-in-action. Should cure bug
41920.
p4raw-id: //depot/perl@30659
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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 |