| Subject: | "Use of uninitialized value" warning in READLINE if send_fd is used |
Use of uninitialized value in length at
/usr/local/perl5/lib/site_perl/5.8.8/Apache/Filter.pm line 197.
replacing 'print while <$fd>' with 'local $/;print <$fd>;' supresses
this warning:
--- lib/Apache/Filter.pm.orig Sun Sep 25 07:02:52 2005
+++ lib/Apache/Filter.pm Sat Jan 26 19:36:43 2008
@@ -131,7 +131,8 @@
$self->SUPER::send_fd(@_);
} else {
my $fd = shift;
- print while <$fd>;
+ local $/;
+ print <$fd>;
}
}