From 80d4c0777548a4527b5b719c23256779c6acc637 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Fri, 2 Mar 2001 19:48:06 +0000
Subject: [PATCH] There was a real leak in the "export a C API" example; fix
 that one. (There are too many initspam() functions; they need to be renamed
 post-beta.)

---
 Doc/ext/ext.tex | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/Doc/ext/ext.tex b/Doc/ext/ext.tex
index 4cd4af0fc11..250859b553a 100644
--- a/Doc/ext/ext.tex
+++ b/Doc/ext/ext.tex
@@ -1619,9 +1619,10 @@ the C API pointer array:
 void
 initspam()
 {
-    PyObject *m, *d;
+    PyObject *m;
     static void *PySpam_API[PySpam_API_pointers];
     PyObject *c_api_object;
+
     m = Py_InitModule("spam", SpamMethods);
 
     /* Initialize the C API pointer array */
@@ -1630,9 +1631,13 @@ initspam()
     /* Create a CObject containing the API pointer array's address */
     c_api_object = PyCObject_FromVoidPtr((void *)PySpam_API, NULL);
 
-    /* Create a name for this object in the module's namespace */
-    d = PyModule_GetDict(m);
-    PyDict_SetItemString(d, "_C_API", c_api_object);
+    if (c_api_object != NULL) {
+        /* Create a name for this object in the module's namespace */
+        PyObject *d = PyModule_GetDict(m);
+
+        PyDict_SetItemString(d, "_C_API", c_api_object);
+        Py_DECREF(c_api_object);
+    }
 }
 \end{verbatim}