From 6651cc004611df7e392fa90f072b433c7684fa32 Mon Sep 17 00:00:00 2001
From: wilfried <wilfried@openbsd.org>
Date: Fri, 7 Jun 2002 19:47:56 +0000
Subject: [PATCH] silence complaints

---
 .../patches/patch-ShowTable_pm                | 12 +++++++++++
 .../patches/patch-t_Test-Setup_pl             | 21 +++++++++++++++++++
 2 files changed, 33 insertions(+)
 create mode 100644 devel/p5-Data-ShowTable/patches/patch-ShowTable_pm
 create mode 100644 devel/p5-Data-ShowTable/patches/patch-t_Test-Setup_pl

diff --git a/devel/p5-Data-ShowTable/patches/patch-ShowTable_pm b/devel/p5-Data-ShowTable/patches/patch-ShowTable_pm
new file mode 100644
index 00000000000..65b98c1d314
--- /dev/null
+++ b/devel/p5-Data-ShowTable/patches/patch-ShowTable_pm
@@ -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
diff --git a/devel/p5-Data-ShowTable/patches/patch-t_Test-Setup_pl b/devel/p5-Data-ShowTable/patches/patch-t_Test-Setup_pl
new file mode 100644
index 00000000000..d2347a41e7e
--- /dev/null
+++ b/devel/p5-Data-ShowTable/patches/patch-t_Test-Setup_pl
@@ -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;
+