stas 2003/11/21 23:38:48
Modified: ModPerl-Registry/t closure.t perlrun_require.t special_blocks.t t/modperl cookie.t cookie2.t sameinterp.t t/response/TestAPR finfo.pm Log: fix calls to skip() in tests to work with older Test.pm, which requires a second argument to skip() Revision Changes Path 1.11 +1 -1 modperl-2.0/ModPerl-Registry/t/closure.t Index: closure.t =================================================================== RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/closure.t,v retrieving revision 1.10 retrieving revision 1.11 diff -u -u -r1.10 -r1.11 --- closure.t 22 Aug 2003 05:22:55 -0000 1.10 +++ closure.t 22 Nov 2003 07:38:48 -0000 1.11 @@ -152,7 +152,7 @@ sub skip_not_same_interp { my $skip_cond = shift; if ($skip_cond) { - skip "Skip couldn't find the same interpreter"; + skip "Skip couldn't find the same interpreter", 0; } else { my($package, $filename, $line) = caller; 1.4 +1 -1 modperl-2.0/ModPerl-Registry/t/perlrun_require.t Index: perlrun_require.t =================================================================== RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/perlrun_require.t,v retrieving revision 1.3 retrieving revision 1.4 diff -u -u -r1.3 -r1.4 --- perlrun_require.t 22 Aug 2003 05:22:55 -0000 1.3 +++ perlrun_require.t 22 Nov 2003 07:38:48 -0000 1.4 @@ -42,7 +42,7 @@ sub skip_not_same_interp { my $skip_cond = shift; if ($skip_cond) { - skip "Skip couldn't find the same interpreter"; + skip "Skip couldn't find the same interpreter", 0; } else { my($package, $filename, $line) = caller; 1.8 +1 -1 modperl-2.0/ModPerl-Registry/t/special_blocks.t Index: special_blocks.t =================================================================== RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/special_blocks.t,v retrieving revision 1.7 retrieving revision 1.8 diff -u -u -r1.7 -r1.8 --- special_blocks.t 22 Aug 2003 05:22:55 -0000 1.7 +++ special_blocks.t 22 Nov 2003 07:38:48 -0000 1.8 @@ -146,7 +146,7 @@ sub skip_not_same_interp { my $skip_cond = shift; if ($skip_cond) { - skip "Skip couldn't find the same interpreter"; + skip "Skip couldn't find the same interpreter", 0; } else { my($package, $filename, $line) = caller; 1.2 +1 -1 modperl-2.0/t/modperl/cookie.t Index: cookie.t =================================================================== RCS file: /home/cvs/modperl-2.0/t/modperl/cookie.t,v retrieving revision 1.1 retrieving revision 1.2 diff -u -u -r1.1 -r1.2 --- cookie.t 22 Sep 2003 23:34:45 -0000 1.1 +++ cookie.t 22 Nov 2003 07:38:48 -0000 1.2 @@ -75,7 +75,7 @@ sub skip_not_same_interp { my $skip_cond = shift; if ($skip_cond) { - skip "Skip couldn't find the same interpreter"; + skip "Skip couldn't find the same interpreter", 0; } else { my($package, $filename, $line) = caller; 1.2 +1 -1 modperl-2.0/t/modperl/cookie2.t Index: cookie2.t =================================================================== RCS file: /home/cvs/modperl-2.0/t/modperl/cookie2.t,v retrieving revision 1.1 retrieving revision 1.2 diff -u -u -r1.1 -r1.2 --- cookie2.t 22 Sep 2003 23:33:18 -0000 1.1 +++ cookie2.t 22 Nov 2003 07:38:48 -0000 1.2 @@ -65,7 +65,7 @@ sub skip_not_same_interp { my $skip_cond = shift; if ($skip_cond) { - skip "Skip couldn't find the same interpreter"; + skip "Skip couldn't find the same interpreter", 0; } else { my($package, $filename, $line) = caller; 1.7 +1 -1 modperl-2.0/t/modperl/sameinterp.t Index: sameinterp.t =================================================================== RCS file: /home/cvs/modperl-2.0/t/modperl/sameinterp.t,v retrieving revision 1.6 retrieving revision 1.7 diff -u -u -r1.6 -r1.7 --- sameinterp.t 22 Sep 2003 21:45:28 -0000 1.6 +++ sameinterp.t 22 Nov 2003 07:38:48 -0000 1.7 @@ -93,7 +93,7 @@ sub skip_not_same_interp { my $skip_cond = shift; if ($skip_cond) { - skip "Skip couldn't find the same interpreter"; + skip "Skip couldn't find the same interpreter", 0; } else { my($package, $filename, $line) = caller; 1.4 +2 -2 modperl-2.0/t/response/TestAPR/finfo.pm Index: finfo.pm =================================================================== RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/finfo.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -u -u -r1.3 -r1.4 --- finfo.pm 19 Nov 2003 23:01:37 -0000 1.3 +++ finfo.pm 22 Nov 2003 07:38:48 -0000 1.4 @@ -66,7 +66,7 @@ foreach my $method (qw(device inode nlink user group size atime mtime ctime)) { if ($skip{$method}) { - skip "different file semantics"; + skip "different file semantics", 0; } else { ok t_cmp(${$method}, @@ -87,7 +87,7 @@ '$r->finfo->protection() & APR::WWRITE'); if (WIN32) { - skip "different file semantics"; + skip "different file semantics", 0; } else { ok t_cmp($protection & S_IXOTH,