You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2001/12/05 06:48:39 UTC
cvs commit: modperl-2.0/t/response/TestModperl readline.pm
dougm 01/12/04 21:48:39
Modified: t/response/TestModperl readline.pm
Log:
always untie/tie STDIN else we may create a zombie request_rec
Revision Changes Path
1.2 +2 -1 modperl-2.0/t/response/TestModperl/readline.pm
Index: readline.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/readline.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- readline.pm 2001/11/08 03:19:47 1.1
+++ readline.pm 2001/12/05 05:48:39 1.2
@@ -9,7 +9,8 @@
sub handler {
my $r = shift;
- tie *STDIN, $r unless tied *STDIN;
+ untie *STDIN;
+ tie *STDIN, $r;
while (defined(my $line = <STDIN>)) {
$r->puts($line);