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,
