[EMAIL PROTECTED] (Doug MacEachern) wrote:
>this thread is pretty large, i'm sure the fix is nice and small, anybody
>have a patch with the final solution? thanks.
Sounds so ominous... =)
===================================================================
RCS file: /home/cvspublic/modperl/t/modules/request.t,v
retrieving revision 1.8
diff -u -r1.8 request.t
--- request.t 2000/05/12 03:43:24 1.8
+++ request.t 2000/08/31 05:16:19
@@ -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) {
===================================================================
------------------- -------------------
Ken Williams Last Bastion of Euclidity
[EMAIL PROTECTED] The Math Forum
