stas        01/12/17 08:55:46

  Modified:    xs/APR/PerlIO apr_perlio.c
  Log:
  - maintainer mode cleanups
  
  Revision  Changes    Path
  1.2       +3 -4      modperl-2.0/xs/APR/PerlIO/apr_perlio.c
  
  Index: apr_perlio.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/APR/PerlIO/apr_perlio.c,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- apr_perlio.c      2001/12/17 16:20:27     1.1
  +++ apr_perlio.c      2001/12/17 16:55:46     1.2
  @@ -31,7 +31,7 @@
    */
   static IV PerlIOAPR_popped(PerlIO *f)
   {
  -    PerlIOAPR *st = PerlIOSelf(f, PerlIOAPR);
  +    //PerlIOAPR *st = PerlIOSelf(f, PerlIOAPR);
   
       return 0;
   }
  @@ -41,12 +41,10 @@
                                 const char *mode, int fd, int imode,
                                 int perm, PerlIO *f, int narg, SV **args)
   {
  -    AV *av_arg;
       SV *arg = (narg > 0) ? *args : PerlIOArg;
       PerlIOAPR *st;
       const char *path;
       apr_int32_t apr_flag;
  -    int len;
       apr_status_t rc;
       SV *sv;
       
  @@ -105,7 +103,6 @@
   static PerlIO *PerlIOAPR_dup(pTHX_ PerlIO *f, PerlIO *o,
                                CLONE_PARAMS *param, int flags)
   {
  -    Size_t count;
       apr_status_t rc;
    
       if ( (f = PerlIOBase_dup(aTHX_ f, o, param, flags)) ) {
  @@ -264,6 +261,8 @@
           return 0;
         case APR_EOF:
           return 1;
  +      default:
  +        return -1;
       }
   }
   
  
  
  


Reply via email to