normalize whitespace

diff --git a/Doc/perl/SynopsisTable.pm b/Doc/perl/SynopsisTable.pm
index a77a016a7b742b4c0fd268df1ae2a3c3804de6a5..3c65a67d11347ea450c4fdbe488c86cb019543a7 100644 (file)
--- a/Doc/perl/SynopsisTable.pm
+++ b/Doc/perl/SynopsisTable.pm
@@ -7,10 +7,10 @@ sub new{
 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 @@ sub show{
     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 @@ sub tohtml{
     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 @@ sub test{
     $st2->show();
 }
 
-1;     # This must be the last line -- Perl is bogus!
+1;      # This must be the last line -- Perl is bogus!