stas 2003/09/22 14:45:28
Modified: t/modperl sameinterp.t
Log:
fix typo: s/skip_not_same_intrep/skip_not_same_interp/
Revision Changes Path
1.6 +4 -4 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.5
retrieving revision 1.6
diff -u -u -r1.5 -r1.6
--- sameinterp.t 22 Sep 2003 19:58:54 -0000 1.5
+++ sameinterp.t 22 Sep 2003 21:45:28 -0000 1.6
@@ -24,7 +24,7 @@
$expected++;
my $res = req($same_interp, \&GET, $url, foo => 'bar');
$skip++ unless defined $res;
- skip_not_same_intrep(
+ skip_not_same_interp(
$skip,
$expected,
defined $res && $res->content,
@@ -45,7 +45,7 @@
my $content = join ' ', 'ok', $_ + 3;
my $res = req($same_interp, \&POST, $url, content => $content);
$skip++ unless defined $res;
- skip_not_same_intrep(
+ skip_not_same_interp(
$skip,
$expected,
defined $res && $res->content,
@@ -65,7 +65,7 @@
$expected++;
my $res = req($same_interp, \&HEAD, $url);
$skip++ unless defined $res;
- skip_not_same_intrep(
+ skip_not_same_interp(
$skip,
$same_interp,
defined $res && $res->header(Apache::TestRequest::INTERP_KEY),
@@ -90,7 +90,7 @@
# interpreter, which happens randomly and not an error.
# the first argument is used to decide whether to skip the sub-test,
# the rest of the arguments are passed to 'ok t_cmp';
-sub skip_not_same_intrep {
+sub skip_not_same_interp {
my $skip_cond = shift;
if ($skip_cond) {
skip "Skip couldn't find the same interpreter";
