1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
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;
|
GitWeb
