[win32] make sv_setsv() treat freed SVs like SVt_NULL
authorGurusamy Sarathy <gsar@cpan.org>
Sat, 6 Jun 1998 16:47:32 +0000 (16:47 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Sat, 6 Jun 1998 16:47:32 +0000 (16:47 +0000)
p4raw-id: //depot/win32/perl@1077

sv.c

diff --git a/sv.c b/sv.c
index f5a979a..f75df56 100644 (file)
--- 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);