[Python-checkins] CVS: python/dist/src/Doc/perl l2hinit.perl,1.38.4.4,1.38.4.5 python.perl,1.65.2.9,1.65.2.10

Fred L. Drake python-dev@python.org
Mon, 20 Mar 2000 10:17:42 -0500 (EST)


Update of /projects/cvsroot/python/dist/src/Doc/perl
In directory weyr:/home/fdrake/projects/python/Doc-152p2/perl

Modified Files:
      Tag: release152p1-patches
	l2hinit.perl python.perl 
Log Message:

Adjust the strings used in building the module index so that the platform
information is properly added, and tools/mkmodindex can properly extract
the Global Module Index.

Thanks to Peter Funk for pushing me on this one!  ;)


Index: l2hinit.perl
===================================================================
RCS file: /projects/cvsroot/python/dist/src/Doc/perl/l2hinit.perl,v
retrieving revision 1.38.4.4
retrieving revision 1.38.4.5
diff -C2 -r1.38.4.4 -r1.38.4.5
*** l2hinit.perl	2000/02/28 20:52:19	1.38.4.4
--- l2hinit.perl	2000/03/20 15:17:39	1.38.4.5
***************
*** 295,299 ****
  		     . '</span>)</em>');
  	}
! 	print MODIDXFILE $moditem . $IDXFILE_FIELD_SEP . "$key$plat###\n";
      }
      close(MODIDXFILE);
--- 295,300 ----
  		     . '</span>)</em>');
  	}
! 	print MODIDXFILE $moditem . $IDXFILE_FIELD_SEP
!               . "<tt class='module'>$key</tt>$plat###\n";
      }
      close(MODIDXFILE);

Index: python.perl
===================================================================
RCS file: /projects/cvsroot/python/dist/src/Doc/perl/python.perl,v
retrieving revision 1.65.2.9
retrieving revision 1.65.2.10
diff -C2 -r1.65.2.9 -r1.65.2.10
*** python.perl	2000/03/16 22:52:55	1.65.2.9
--- python.perl	2000/03/20 15:17:39	1.65.2.10
***************
*** 264,268 ****
      local($_) = @_;
      my $platform = next_argument();
!     $ModulePlatforms{$THIS_MODULE} = $platform;
      $platform = "Macintosh"
        if $platform eq 'Mac';
--- 264,268 ----
      local($_) = @_;
      my $platform = next_argument();
!     $ModulePlatforms{"<tt class='module'>$THIS_MODULE</tt>"} = $platform;
      $platform = "Macintosh"
        if $platform eq 'Mac';