diff --git a/Doc/perl/SynopsisTable.pm b/Doc/perl/SynopsisTable.pm index a77a016a7b7..3c65a67d113 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 = "