cvs commit: modperl-2.0/lib/Apache Status.pm

[gozer]

gozer       2004/11/10 23:55:49

  Modified:    lib/Apache Status.pm
  Log:
  Small bug. There is no $r->send_rd without Apache::compat, so use the
  cleaner $r->sendfile() instead.
  
  Revision  Changes    Path
  1.32      +1 -3      modperl-2.0/lib/Apache/Status.pm
  
  Index: Status.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/Apache/Status.pm,v
  retrieving revision 1.31
  retrieving revision 1.32
  diff -u -r1.31 -r1.32
  --- Status.pm 11 Nov 2004 07:53:06 -0000      1.31
  +++ Status.pm 11 Nov 2004 07:55:49 -0000      1.32
  @@ -724,10 +724,8 @@
       }
   
       if (-s $file) {
  -        local *FH;
  -        open FH, $file or die "Can't open $file: $!";
           $r->content_type("image/gif");
  -        $r->send_fd(\*FH);
  +        $r->sendfile($file);
       }
       else {
           $r->content_type("text/plain");