From d37154f7f2172d5e9dc4cdaebd6afe543d2ea341 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Fri, 5 Sep 2003 15:36:23 +0000
Subject: normalize whitespace

---
 Doc/perl/SynopsisTable.pm | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

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 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!
-- 
cgit v0.12