From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 5 May 2002 15:51:01 +0000 (+0000)
Subject: The #16401 was far from enough, and mostly in a wrong direction.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dd7a3fcab7d7c9000b180fa8999b95f33a8f9184;p=p5sagit%2Fp5-mst-13.2.git

The #16401 was far from enough, and mostly in a wrong direction.
The right thing to do would be to convert Storable into using
the new MY_CXT scheme (no static data, and memory management
using SVs).

p4raw-id: //depot/perl@16415
---

diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs
index 38843f6..05705c0 100644
--- a/ext/Storable/Storable.xs
+++ b/ext/Storable/Storable.xs
@@ -389,8 +389,6 @@ static stcxt_t *Context_ptr = &Context;
 
 #endif /* MULTIPLICITY || PERL_OBJECT || PERL_CAPI */
 
-XS(XS_Storable_END); /* free perinterp_sv and kbuf */
-
 /*
  * KNOWN BUG:
  *   Croaking implies a memory leak, since we don't use setjmp/longjmp
@@ -5428,16 +5426,3 @@ is_storing()
 int
 is_retrieving()
 
-void
-END()
-PPCODE:
-{   
-	dSTCXT;
-#if defined(MULTIPLICITY) || defined(PERL_OBJECT) || defined(PERL_CAPI)
-	Safefree(INT2PTR(stcxt_t*, perinterp_sv));
-	perinterp_sv = 0;
-#endif
-	Safefree(kbuf);
-	kbuf = 0;
-	ksiz = 0;
-}