+++ /dev/null
---- showtable
-+++ showtable
-@@ -1,4 +1,4 @@
--#!/usr/bin/perl5
-+#!/usr/bin/perl
- # showtable - read data and show it
- #
- # Copyright (C) 1996,1997 Alan K. Stebbens <aks@sgi.com>
---- ShowTable.pm
-+++ ShowTable.pm
-@@ -721,7 +721,7 @@
-
- S< >B<ShowHTMLTable> I<\@titles>, I<\@types>, I<\@widths>, I<\&row_sub>
- [, I<\&fmt_sub> [, I<$max_width> [, I<\%URL_Keys> [, I<$no_escape>
--[, I<\@title_formats [, I<\@data_formats [, I<$table_attrs> ] ] ] ] ] ] ];
-+[, I<\@title_formats> [, I<\@data_formats> [, I<$table_attrs> ] ] ] ] ] ] ];
-
- The B<ShowHTMLTable> displays one or more rows of columns of data using
- the HTML C<\<TABLE\>> feature. In addition to the usual parameter arguments
---- t/Test-Setup.pl
-+++ t/Test-Setup.pl
-@@ -19,7 +19,7 @@
-
- sub talk { print STDERR @_; }
-
--sub start_tests {
-+sub start_tests($) {
- my $count = shift; # how many tests?
- mkdir("$testdir/out",0755) unless -d "$testdir/out";
- print "1..$count\n"; # tell harness how many tests
-@@ -50,7 +50,7 @@
-
- # run_test $num, \⊂
-
--sub run_test {
-+sub run_test($&) {
- my $num = shift;
- my $sub = shift;
-