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;