stas 01/12/17 21:54:59
Modified: t/response/TestApache subprocess.pm
Log:
- force the scalar context on <$out> in ($value, <$out>, 'test') or <$out>
can dissapear from the args list if it returns an empty list.
Revision Changes Path
1.4 +3 -3 modperl-2.0/t/response/TestApache/subprocess.pm
Index: subprocess.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestApache/subprocess.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- subprocess.pm 2001/12/18 00:23:03 1.3
+++ subprocess.pm 2001/12/18 05:54:59 1.4
@@ -60,7 +60,7 @@
$r->subprocess_env->set(SubProcess => $value);
my $out = Apache::SubProcess::spawn_proc_prog($r, $command);
ok t_cmp($value,
- <$out>,
+ scalar(<$out>),
"passing env via subprocess_env"
);
}
@@ -73,7 +73,7 @@
Apache::SubProcess::spawn_proc_prog($r, $command);
print $in $value;
ok t_cmp($value,
- <$out>,
+ scalar(<$out>),
"testing subproc's stdin -> stdout + list context"
);
}
@@ -86,7 +86,7 @@
Apache::SubProcess::spawn_proc_prog($r, $command);
print $in $value;
ok t_cmp($value,
- <$err>,
+ scalar(<$err>),
"testing subproc's stdin -> stderr + list context"
);
}
