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

[Fred L. Drake]

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

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

Slight cleanup of module index code.


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