diff options
| author | Fred Drake <fdrake@acm.org> | 2000-04-10 18:26:45 (GMT) |
|---|---|---|
| committer | Fred Drake <fdrake@acm.org> | 2000-04-10 18:26:45 (GMT) |
| commit | c2578c5bb61915f7e2d292704ebe2a6176a6cb26 (patch) | |
| tree | aa0856b7bfaf964df4343c9eee1d5a15db3eb641 /Doc/perl | |
| parent | db2764d941f338028a7fdc164ed92a38768d6849 (diff) | |
| download | cpython-c2578c5bb61915f7e2d292704ebe2a6176a6cb26.zip cpython-c2578c5bb61915f7e2d292704ebe2a6176a6cb26.tar.gz cpython-c2578c5bb61915f7e2d292704ebe2a6176a6cb26.tar.bz2 | |
load_refcounts(),
do_env_cfuncdesc(): Support the "null" value for the refcounts field
in refcounts.dat.
Diffstat (limited to 'Doc/perl')
| -rw-r--r-- | Doc/perl/python.perl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl index c6306dc..35d4da9 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>"; } |