[Python-checkins] python/dist/src/Doc/perl l2hinit.perl,1.64,1.65

[fdrake@users.sourceforge.net]

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

Modified Files:
	l2hinit.perl 
Log Message:
Clean up some really minor Perl warnings.


Index: l2hinit.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/l2hinit.perl,v
retrieving revision 1.64
retrieving revision 1.65
diff -C2 -d -r1.64 -r1.65
*** l2hinit.perl	1 Oct 2002 15:20:19 -0000	1.64
--- l2hinit.perl	24 Oct 2002 16:36:05 -0000	1.65
***************
*** 89,93 ****
      # processing.
      #
!     my $file = @_[0];
      my($jobname, $dir, $ext) = fileparse($file, '\..*');
      $dir = L2hos->Make_directory_absolute($dir);
--- 89,93 ----
      # processing.
      #
!     my $file = $_[0];
      my($jobname, $dir, $ext) = fileparse($file, '\..*');
      $dir = L2hos->Make_directory_absolute($dir);
***************
*** 129,133 ****
  
  sub get_my_icon($) {
!     my $name = @_[0];
      my $text = $my_icon_tags{$name};
      if ($my_icon_names{$name}) {
--- 129,133 ----
  
  sub get_my_icon($) {
!     my $name = $_[0];
      my $text = $my_icon_tags{$name};
      if ($my_icon_names{$name}) {
***************
*** 143,147 ****
  
  sub use_my_icon($) {
!     my $s = @_[0];
      if ($s =~ /\<tex2html_([a-z_]+)_visible_mark\>/) {
          my $r = get_my_icon($1);
--- 143,147 ----
  
  sub use_my_icon($) {
!     my $s = $_[0];
      if ($s =~ /\<tex2html_([a-z_]+)_visible_mark\>/) {
          my $r = get_my_icon($1);
***************
*** 277,281 ****
  sub do_cmd_arabic {
      # get rid of that nasty <SPAN CLASS="arabic">...</SPAN>
!     my($ctr, $val, $id, $text) = &read_counter_value(@_[0]);
      return ($val ? farabic($val) : "0") . $text;
  }
--- 277,281 ----
  sub do_cmd_arabic {
      # get rid of that nasty <SPAN CLASS="arabic">...</SPAN>
!     my($ctr, $val, $id, $text) = &read_counter_value($_[0]);
      return ($val ? farabic($val) : "0") . $text;
  }
***************
*** 321,325 ****
      my $prefix = '';
      foreach $key (keys %Modules) {
! 	$key =~ s/<tt>([a-zA-Z0-9._]*)<\/tt>/\1/;
  	my $plat = "$ModulePlatforms{$key}";
  	$plat = ''
--- 321,325 ----
      my $prefix = '';
      foreach $key (keys %Modules) {
! 	$key =~ s/<tt>([a-zA-Z0-9._]*)<\/tt>/$1/;
  	my $plat = "$ModulePlatforms{$key}";
  	$plat = ''
***************
*** 338,342 ****
  	my $moditem = "$Modules{$key}";
  	my $plat = '';
! 	$key =~ s/<tt>([a-zA-Z0-9._]*)<\/tt>/\1/;
  	if ($ModulePlatforms{$key} && !$allthesame) {
  	    $plat = (" <em>(<span class=\"platform\">$ModulePlatforms{$key}"
--- 338,342 ----
  	my $moditem = "$Modules{$key}";
  	my $plat = '';
! 	$key =~ s/<tt>([a-zA-Z0-9._]*)<\/tt>/$1/;
  	if ($ModulePlatforms{$key} && !$allthesame) {
  	    $plat = (" <em>(<span class=\"platform\">$ModulePlatforms{$key}"
***************
*** 504,508 ****
          my $rx = "([\\\\]begin\\s*$O\\d+$C\\s*theindex[\\s\\S]*)"
            . "([\\\\]begin\\s*$O\\d+$C\\s*theindex)";
!         s/$rx/\\textohtmlmoduleindex \1 \\textohtmlindex \2/o;
          # Add a button to the navigation areas:
          $CUSTOM_BUTTONS .= ('<a href="modindex.html" title="Module Index">'
--- 504,508 ----
          my $rx = "([\\\\]begin\\s*$O\\d+$C\\s*theindex[\\s\\S]*)"
            . "([\\\\]begin\\s*$O\\d+$C\\s*theindex)";
!         s/$rx/\\textohtmlmoduleindex $1 \\textohtmlindex $2/o;
          # Add a button to the navigation areas:
          $CUSTOM_BUTTONS .= ('<a href="modindex.html" title="Module Index">'
***************
*** 515,519 ****
          print "\nadd_bbl_and_idx_dummy_commands ==> adding general index";
          my $rx = "([\\\\]begin\\s*$O\\d+$C\\s*theindex)";
!         s/$rx/\\textohtmlindex \1/o;
          $HAVE_GENERAL_INDEX = 1;
      }
--- 515,519 ----
          print "\nadd_bbl_and_idx_dummy_commands ==> adding general index";
          my $rx = "([\\\\]begin\\s*$O\\d+$C\\s*theindex)";
!         s/$rx/\\textohtmlindex $1/o;
          $HAVE_GENERAL_INDEX = 1;
      }