diff Doc/perl/python.perl @ 8018:011ae71fea96 legacy-trunk

Lighten up tables.
author Fred Drake <fdrake@acm.org>
date Sat, 11 Apr 1998 20:53:03 +0000
parents daffde7a6891
children 9b8902338e14
line wrap: on
line diff
--- a/Doc/perl/python.perl	Sat Apr 11 20:43:51 1998 +0000
+++ b/Doc/perl/python.perl	Sat Apr 11 20:53:03 1998 +0000
@@ -720,7 +720,7 @@
 
 sub setup_column_alignments{
     local($_) = @_;
-    my($j1,$a1,$a2,$a3,$j4) = split(/[|]/,$_);
+    my($a1,$a2,$a3) = split(/[|]/,$_);
     my($th1,$th2,$th3) = ('<th>', '<th>', '<th>');
     $col_aligns[0] = (($a1 eq "c") ? "<td align=center>" : "<td>");
     $col_aligns[1] = (($a2 eq "c") ? "<td align=center>" : "<td>");