[gentoo-commits] gentoo-x86 commit in dev-perl/Data-ShowTable/files: 3.3.patch 3.3-perlpath.patch

[Torsten Veller (tove)]

tove        08/08/26 13:48:01

  Added:                3.3.patch
  Removed:              3.3-perlpath.patch
  Log:
  Add another patch from Mandriva. Run tests.
  (Portage version: 2.2_rc8/cvs/Linux 2.6.26-tuxonice i686)

Revision  Changes    Path
1.1                  dev-perl/Data-ShowTable/files/3.3.patch

file : http://sources.gentoo.org/viewcvs.py/gentoo-x86/dev-perl/Data-ShowTable/files/3.3.patch?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewcvs.py/gentoo-x86/dev-perl/Data-ShowTable/files/3.3.patch?rev=1.1&content-type=text/plain

Index: 3.3.patch
===================================================================
--- 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@×××.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;
 
-sub run_test {
+sub run_test($&) {
     my $num = shift;
     my $sub = shift;