cvs commit: httpd-apreq-2/glue/perl/xsbuilder/Apache/Upload Upload_pm

[joes]

joes        2004/07/03 20:53:52

  Modified:    glue/perl/xsbuilder/Apache/Upload Upload_pm
  Log:
  Have fh() return a GLOB{IO} ref instead of a raw GLOB for better apreq1 
compat.
  
  Revision  Changes    Path
  1.7       +2 -5      httpd-apreq-2/glue/perl/xsbuilder/Apache/Upload/Upload_pm
  
  Index: Upload_pm
  ===================================================================
  RCS file: 
/home/cvs/httpd-apreq-2/glue/perl/xsbuilder/Apache/Upload/Upload_pm,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- Upload_pm 3 Jul 2004 15:45:53 -0000       1.6
  +++ Upload_pm 4 Jul 2004 03:53:52 -0000       1.7
  @@ -1,16 +1,13 @@
   use APR::Table;
   use APR::Bucket;
   use APR::Brigade;
  -use APR::PerlIO;
   use APR::Error;
   use Apache::Request;
   
   package Apache::Upload;
   sub fh {
  -    my $upload = shift;
  -    my $fh = do {local *FH};
  -    tie *$fh, "Apache::Upload::Brigade", $upload->bb;
  -    return $fh;
  +    tie local (*FH), "Apache::Upload::Brigade", shift->bb;
  +    return *FH{IO};
   }
   
   package Apache::Upload::Error;