summaryrefslogtreecommitdiffstats
path: root/Doc/perl
diff options
context:
space:
mode:
authorFred Drake <fdrake@acm.org>2000-08-11 20:04:19 (GMT)
committerFred Drake <fdrake@acm.org>2000-08-11 20:04:19 (GMT)
commit241551c16c5222914fc8904889e08e15a40ada9d (patch)
treed45d164662cce49828a1f5f4a85f654ae5c05300 /Doc/perl
parenta8e484c8f54dc9b2cf8dd8a82f051ee891d4fdd4 (diff)
downloadcpython-241551c16c5222914fc8904889e08e15a40ada9d.zip
cpython-241551c16c5222914fc8904889e08e15a40ada9d.tar.gz
cpython-241551c16c5222914fc8904889e08e15a40ada9d.tar.bz2
do_env_cfuncdesc(): Push as much of the generated HTML into one place
as possible for better readability. Revise a comment.
Diffstat (limited to 'Doc/perl')
-rw-r--r--Doc/perl/python.perl16
1 files changed, 8 insertions, 8 deletions
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index b1eb008..bacc8cc 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -644,23 +644,23 @@ sub do_env_cfuncdesc{
my $idx = make_str_index_entry(
"<tt class='cfunction'>$function_name()</tt>" . get_indexsubitem());
$idx =~ s/ \(.*\)//;
- $idx =~ s/\(\)//; # ????
+ $idx =~ s/\(\)//; # ???? - why both of these?
my $result_rc = get_refcount($function_name, '');
my $rcinfo = '';
if ($result_rc eq '+1') {
- $rcinfo = '<span class="label">Return value:</span>'
- . "\n <span class=\"value\">New reference.</span>";
+ $rcinfo = 'New reference';
}
elsif ($result_rc eq '0') {
- $rcinfo = '<span class="label">Return value:</span>'
- . "\n <span class=\"value\">Borrowed reference.</span>";
+ $rcinfo = 'Borrowed reference';
}
elsif ($result_rc eq 'null') {
- $rcinfo = '<span class="label">Return value:</span>'
- . "\n <span class=\"value\">Always NULL.</span>";
+ $rcinfo = 'Always <tt class="constant">NULL</tt>';
}
if ($rcinfo ne '') {
- $rcinfo = "\n<div class=\"refcount-info\">\n $rcinfo\n</div>";
+ $rcinfo = ( "\n<div class=\"refcount-info\">"
+ . "\n <span class=\"label\">Return value:</span>"
+ . "\n <span class=\"value\">$rcinfo.</span>"
+ . "\n</div>");
}
return "<dl><dt>$return_type <b>$idx</b> (<var>$arg_list</var>)\n<dd>"
. $rcinfo