cvs commit: modperl-2.0/t/response/TestModperl getc.pm

[dougm]

dougm       01/12/06 20:47:13

  Modified:    t/response/TestModperl getc.pm
  Log:
  always untie/tie STDIN
  
  Revision  Changes    Path
  1.2       +2 -1      modperl-2.0/t/response/TestModperl/getc.pm
  
  Index: getc.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/getc.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- getc.pm   2001/11/07 04:04:14     1.1
  +++ getc.pm   2001/12/07 04:47:13     1.2
  @@ -8,7 +8,8 @@
   sub handler {
       my $r = shift;
   
  -    tie *STDIN, $r unless tied *STDIN;
  +    untie *STDIN;
  +    tie *STDIN, $r;
   
       while (my $c = getc) {
           die "got more than 1 char" unless length($c) == 1;