perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/t/response/TestModperl readline.pm
Date Wed, 05 Dec 2001 05:48:39 GMT
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);
  
  
  

Mime
View raw message