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);