Change 32686 by [EMAIL PROTECTED] on 2007/12/21 10:21:45
Subject: mg_free frees data but leaves it accessible
From: Yuval Kogman <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
Date: Fri, 21 Dec 2007 00:13:31 +0200
Affected files ...
... //depot/perl/mg.c#511 edit
Differences ...
==== //depot/perl/mg.c#511 (text) ====
Index: perl/mg.c
--- perl/mg.c#510~32672~ 2007-12-20 09:47:48.000000000 -0800
+++ perl/mg.c 2007-12-21 02:21:45.000000000 -0800
@@ -497,6 +497,7 @@
if (mg->mg_flags & MGf_REFCOUNTED)
SvREFCNT_dec(mg->mg_obj);
Safefree(mg);
+ SvMAGIC_set(sv, moremagic);
}
SvMAGIC_set(sv, NULL);
return 0;
End of Patch.
