dougm 00/08/30 22:54:11
Modified: . Changes
t/modules request.t
Log:
modules/request test fix
Revision Changes Path
1.510 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.509
retrieving revision 1.510
diff -u -r1.509 -r1.510
--- Changes 2000/08/31 05:49:04 1.509
+++ Changes 2000/08/31 05:54:10 1.510
@@ -10,6 +10,9 @@
=item 1.24_01-dev
+modules/request test fix
+[Ken Williams <[EMAIL PROTECTED]>]
+
switch usage of hard_timeout() to soft_timeout(), so if SIGALRM
happens during Apache::{print,read}, the script will continue run,
allowing proper cleanup (e.g. DESTROY)
1.9 +1 -1 modperl/t/modules/request.t
Index: request.t
===================================================================
RCS file: /home/cvs/modperl/t/modules/request.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- request.t 2000/05/12 03:43:24 1.8
+++ request.t 2000/08/31 05:54:11 1.9
@@ -125,7 +125,7 @@
my $lines = 0;
local *FH;
open FH, $file or die "open $file $!";
- ++$lines while (my $dummy = <FH>);
+ ++$lines while defined <FH>;
close FH;
my(@headers);
if ($Is_dougm) {
