stas 2004/05/30 11:51:30
Modified: t/response/TestError runtime.pm
Log:
set the timeout to zero to surely fail everywhere (wasn't failing on win32
with timeout 1usec)
Submitted by: Randy Kobes
Revision Changes Path
1.4 +3 -3 modperl-2.0/t/response/TestError/runtime.pm
Index: runtime.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestError/runtime.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -u -r1.3 -r1.4
--- runtime.pm 4 May 2004 06:19:59 -0000 1.3
+++ runtime.pm 30 May 2004 18:51:30 -0000 1.4
@@ -22,9 +22,9 @@
$r->content_type('text/plain');
- # set timeout to 1 usec (microsec!) which makes sure that any
- # socket read call will fail
- $socket->timeout_set(1);
+ # set timeout to 0 to make sure that any socket read call will
+ # fail
+ $socket->timeout_set(0);
no strict 'refs';
$args->($r, $socket);
