cvs commit: modperl-2.0/t/filter/TestFilter in_error.pm

[stas]

stas        2003/12/22 20:08:22

  Modified:    t/filter/TestFilter in_error.pm
  Log:
  $! now is as good as it can get
  
  Revision  Changes    Path
  1.2       +0 -1      modperl-2.0/t/filter/TestFilter/in_error.pm
  
  Index: in_error.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/in_error.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -u -r1.1 -r1.2
  --- in_error.pm       23 Dec 2003 03:02:34 -0000      1.1
  +++ in_error.pm       23 Dec 2003 04:08:22 -0000      1.2
  @@ -31,7 +31,6 @@
       my $r = shift;
   
       my $len = $r->read(my $data, $r->headers_in->{'Content-Length'});
  -    # XXX: what about $! it's incorrect now
       die "failed to read POSTed data: $!" unless defined $len;
       debug "read $len bytes [$data]";