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

[Fred L. Drake]

Update of /cvsroot/python/python/dist/src/Doc/perl
In directory usw-pr-cvs1:/tmp/cvs-serv32723/perl

Modified Files:
	l2hinit.perl 
Log Message:
Add support for the "Aesop Meta Tag".  Not widely used, but not a bad idea,
either.


Index: l2hinit.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/l2hinit.perl,v
retrieving revision 1.60
retrieving revision 1.61
diff -C2 -d -r1.60 -r1.61
*** l2hinit.perl	26 Mar 2002 19:57:52 -0000	1.60
--- l2hinit.perl	5 Apr 2002 17:34:50 -0000	1.61
***************
*** 38,41 ****
--- 38,43 ----
  $HAVE_TABLE_OF_CONTENTS = 0;
  
+ $AESOP_META_TYPE = 'information';
+ 
  
  # A little painful, but lets us clean up the top level directory a little,
***************
*** 640,643 ****
--- 642,647 ----
           , &meta_information($title)
           , $MY_PARTIAL_HEADER
+          , ($AESOP_META_TYPE eq '' ? ''
+             : "\n<meta name='aesop' content='$AESOP_META_TYPE'>")
           , "\n</head>\n<body$body>");
  }