From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 6 Jun 1998 16:47:32 +0000 (+0000)
Subject: [win32] make sv_setsv() treat freed SVs like SVt_NULL
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f229af35cbeeb711332db494d3b7c19457cc03c3;p=p5sagit%2Fp5-mst-13.2.git

[win32] make sv_setsv() treat freed SVs like SVt_NULL

p4raw-id: //depot/win32/perl@1077
---

diff --git a/sv.c b/sv.c
index f5a979a..f75df56 100644
--- a/sv.c
+++ b/sv.c
@@ -1913,6 +1913,7 @@ sv_setsv(SV *dstr, register SV *sstr)
     /* There's a lot of redundancy below but we're going for speed here */
 
     switch (stype) {
+    case SVTYPEMASK:		/* forget, forgive, forgo, free radical */
     case SVt_NULL:
 	if (dtype != SVt_PVGV) {
 	    (void)SvOK_off(dstr);