silence complaints

This commit is contained in:
wilfried 2002-06-07 19:47:56 +00:00
parent c09a85fd91
commit 6651cc0046
2 changed files with 33 additions and 0 deletions

View File

@ -0,0 +1,12 @@
$OpenBSD: patch-ShowTable_pm,v 1.1 2002/06/07 19:47:56 wilfried Exp $
--- ShowTable.pm.orig Sun Mar 2 15:04:50 1997
+++ ShowTable.pm Fri Jun 7 13:46:24 2002
@@ -721,7 +721,7 @@ S< >B<ShowHTMLTable> { I<parameter> =>
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

View File

@ -0,0 +1,21 @@
$OpenBSD: patch-t_Test-Setup_pl,v 1.1 2002/06/07 19:47:56 wilfried Exp $
--- t/Test-Setup.pl.orig Sat Jan 25 13:38:43 1997
+++ t/Test-Setup.pl Fri Jun 7 13:46:09 2002
@@ -19,7 +19,7 @@ $testdir = -d 't' ? 't' : '.';
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 @@ sub showDataRowOnce {
# run_test $num, \&sub;
-sub run_test {
+sub run_test($&) {
my $num = shift;
my $sub = shift;