diff options
author | Fred Drake <fdrake@acm.org> | 2000-08-11 20:04:19 (GMT) |
---|---|---|
committer | Fred Drake <fdrake@acm.org> | 2000-08-11 20:04:19 (GMT) |
commit | 241551c16c5222914fc8904889e08e15a40ada9d (patch) | |
tree | d45d164662cce49828a1f5f4a85f654ae5c05300 /Doc/perl/python.perl | |
parent | a8e484c8f54dc9b2cf8dd8a82f051ee891d4fdd4 (diff) | |
download | cpython-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/python.perl')
-rw-r--r-- | Doc/perl/python.perl | 16 |
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 |