From: Fred Drake <fdrake@acm.org>
Date: Mon, 10 Apr 2000 18:26:45 +0000 (+0000)
Subject: load_refcounts(),
X-Git-Tag: v1.6a2~25
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=c2578c5bb61915f7e2d292704ebe2a6176a6cb26;p=python

load_refcounts(),
do_env_cfuncdesc():  Support the "null" value for the refcounts field
        in refcounts.dat.
---

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index c6306dc340..35d4da9a6a 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -600,7 +600,7 @@ sub load_refcounts{
     open(REFCOUNT_FILE, "<$filename") || die "\n$!\n";
     print "[loading API refcount data]";
     while (<REFCOUNT_FILE>) {
-        if (/([a-zA-Z0-9_]+):PyObject\*:([a-zA-Z0-9_]*):(0|[-+]1):(.*)$/) {
+        if (/([a-zA-Z0-9_]+):PyObject\*:([a-zA-Z0-9_]*):(0|[-+]1|null):(.*)$/) {
             my($func, $param, $count, $comment) = ($1, $2, $3, $4);
             #print "\n$func($param) --> $count";
             $REFCOUNTS{"$func:$param"} = $count;
@@ -634,6 +634,10 @@ sub do_env_cfuncdesc{
         $rcinfo = '<span class="label">Return value:</span>'
                   . "\n  <span class=\"value\">Borrowed reference.</span>";
     }
+    elsif ($result_rc eq 'null') {
+        $rcinfo = '<span class="label">Return value:</span>'
+                  . "\n  <span class=\"value\">Always NULL.</span>";
+    }
     if ($rcinfo ne '') {
         $rcinfo = "\n<div class=\"refcount-info\">\n  $rcinfo\n</div>";
     }