[Python-checkins] CVS: python/dist/src/Doc/perl python.perl,1.70,1.71

[Fred Drake]

Update of /projects/cvsroot/python/dist/src/Doc/perl
In directory seahag.cnri.reston.va.us:/home/fdrake/projects/python/Doc/perl

Modified Files:
	python.perl 
Log Message:

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


Index: python.perl
===================================================================
RCS file: /projects/cvsroot/python/dist/src/Doc/perl/python.perl,v
retrieving revision 1.70
retrieving revision 1.71
diff -C2 -r1.70 -r1.71
*** python.perl	2000/04/10 17:47:14	1.70
--- python.perl	2000/04/10 18:26:45	1.71
***************
*** 601,605 ****
      print "[loading API refcount data]";
      while (<REFCOUNT_FILE>) {
!         if (/([a-zA-Z0-9_]+):PyObject\*:([a-zA-Z0-9_]*):(0|[-+]1):(.*)$/) {
              my($func, $param, $count, $comment) = ($1, $2, $3, $4);
              #print "\n$func($param) --> $count";
--- 601,605 ----
      print "[loading API refcount data]";
      while (<REFCOUNT_FILE>) {
!         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";
***************
*** 634,637 ****
--- 634,641 ----
          $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 '') {