Update of /cvsroot/python/python/dist/src/Doc/perl In directory sc8-pr-cvs1:/tmp/cvs-serv27421 Modified Files: SynopsisTable.pm Log Message: normalize whitespace Index: SynopsisTable.pm =================================================================== RCS file: /cvsroot/python/python/dist/src/Doc/perl/SynopsisTable.pm,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** SynopsisTable.pm 17 Aug 2001 17:20:44 -0000 1.8 --- SynopsisTable.pm 5 Sep 2003 15:36:23 -0000 1.9 *************** *** 8,15 **** my($self,$name,$key,$type) = @_; if ($self->{names}) { ! $self->{names} .= ",$name"; } else { ! $self->{names} .= "$name"; } $self->{info}{$name} = "$key,$type,"; --- 8,15 ---- my($self,$name,$key,$type) = @_; if ($self->{names}) { ! $self->{names} .= ",$name"; } else { ! $self->{names} .= "$name"; } $self->{info}{$name} = "$key,$type,"; *************** *** 46,51 **** print "names: ", $self->{names}, "\n\n"; foreach $name (split /,/, $self->{names}) { ! my($key,$type,$synopsis) = $self->get($name); ! print "$name($key) is $type: $synopsis\n"; } } --- 46,51 ---- print "names: ", $self->{names}, "\n\n"; foreach $name (split /,/, $self->{names}) { ! my($key,$type,$synopsis) = $self->get($name); ! print "$name($key) is $type: $synopsis\n"; } } *************** *** 57,69 **** my $name; foreach $name (split /,/, $self->{names}) { ! my($key,$type,$synopsis) = $self->get($name); ! my $link = "<a href='module-$key.html'>"; ! $synopsis =~ s/<tex2html_percent_mark>/%/g; ! $synopsis =~ s/<tex2html_ampersand_mark>/\&/g; ! $data .= (' <tr' . ($oddrow ? " class='oddrow'>\n " : '>') ! . "<td><b><tt class='module'>$link$name</a></tt></b></td>\n" . " <td>\ </td>\n" ! . " <td class='synopsis'>$synopsis</td></tr>\n"); $oddrow = !$oddrow; } --- 57,69 ---- my $name; foreach $name (split /,/, $self->{names}) { ! my($key,$type,$synopsis) = $self->get($name); ! my $link = "<a href='module-$key.html'>"; ! $synopsis =~ s/<tex2html_percent_mark>/%/g; ! $synopsis =~ s/<tex2html_ampersand_mark>/\&/g; ! $data .= (' <tr' . ($oddrow ? " class='oddrow'>\n " : '>') ! . "<td><b><tt class='module'>$link$name</a></tt></b></td>\n" . " <td>\ </td>\n" ! . " <td class='synopsis'>$synopsis</td></tr>\n"); $oddrow = !$oddrow; } *************** *** 93,95 **** } ! 1; # This must be the last line -- Perl is bogus! --- 93,95 ---- } ! 1; # This must be the last line -- Perl is bogus!