summaryrefslogtreecommitdiffstats
path: root/Doc/perl/python.perl
diff options
context:
space:
mode:
Diffstat (limited to 'Doc/perl/python.perl')
-rw-r--r--Doc/perl/python.perl6
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>";
}