commit d37154f7f2172d5e9dc4cdaebd6afe543d2ea341
author Fred Drake <fdrake@acm.org> Fri Sep 05 15:36:23 2003 +0000
committer Fred Drake <fdrake@acm.org> Fri Sep 05 15:36:23 2003 +0000
tree be8f349ef8671b904c1c214932fb8ac6cd278d13
parent b859c070efbf3c6fd5210c0ae0e4d5a3de4bf9b2

normalize whitespace

Doc/perl/SynopsisTable.pm

diff --git a/Doc/perl/SynopsisTable.pm b/Doc/perl/SynopsisTable.pm
index a77a016..3c65a67 100644
--- a/Doc/perl/SynopsisTable.pm
+++ b/Doc/perl/SynopsisTable.pm
@@ -7,10 +7,10 @@
 sub declare{
     my($self,$name,$key,$type) = @_;
     if ($self->{names}) {
-	$self->{names} .= ",$name";
+        $self->{names} .= ",$name";
     }
     else {
-	$self->{names} .= "$name";
+        $self->{names} .= "$name";
     }
     $self->{info}{$name} = "$key,$type,";
 }
@@ -45,8 +45,8 @@
     my $name;
     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";
+        my($key,$type,$synopsis) = $self->get($name);
+        print "$name($key) is $type: $synopsis\n";
     }
 }
 
@@ -56,15 +56,15 @@
     my $data = "<table class='synopsistable' valign='baseline'>\n";
     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>/\&amp;/g;
-	$data .= ('  <tr'
+        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>/\&amp;/g;
+        $data .= ('  <tr'
                   . ($oddrow ? " class='oddrow'>\n      " : '>')
-		  . "<td><b><tt class='module'>$link$name</a></tt></b></td>\n"
+                  . "<td><b><tt class='module'>$link$name</a></tt></b></td>\n"
                   . "      <td>\&nbsp;</td>\n"
-		  . "      <td class='synopsis'>$synopsis</td></tr>\n");
+                  . "      <td class='synopsis'>$synopsis</td></tr>\n");
         $oddrow = !$oddrow;
     }
     $data .= "</table>\n";
@@ -92,4 +92,4 @@
     $st2->show();
 }
 
-1;	# This must be the last line -- Perl is bogus!
+1;      # This must be the last line -- Perl is bogus!