Re: [ID 20010426.005] Magic not being removed at scope exit [PATCH]

[perl5.git] / sv.c

diff --git a/sv.c b/sv.c
index bbb0d7e..d852712 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -4206,7 +4206,7 @@ Perl_sv_unmagic(pTHX_ SV *sv, int type)
     }
     if (!SvMAGIC(sv)) {
        SvMAGICAL_off(sv);
-       SvFLAGS(sv) |= (SvFLAGS(sv) & (SVp_IOK|SVp_NOK|SVp_POK)) >> PRIVSHIFT;
+       SvFLAGS(sv) |= (SvFLAGS(sv) & (SVp_NOK|SVp_POK)) >> PRIVSHIFT;
     }
 
     return 0;