diff options
Diffstat (limited to 'dev-perl/Data-ShowTable/files/3.3.patch')
| -rw-r--r-- | dev-perl/Data-ShowTable/files/3.3.patch | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/dev-perl/Data-ShowTable/files/3.3.patch b/dev-perl/Data-ShowTable/files/3.3.patch new file mode 100644 index 000000000000..4a9e2d402125 --- /dev/null +++ b/dev-perl/Data-ShowTable/files/3.3.patch @@ -0,0 +1,39 @@ +--- 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; + |