perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/xs/APR/PerlIO apr_perlio.c
Date Fri, 25 Jul 2003 12:49:41 GMT
stas        2003/07/25 05:49:41

  Modified:    xs/APR/PerlIO apr_perlio.c
  Log:
      /* XXX: PL_perlio persists, and remembers old layers, which are
       * inactive, but core perlio should reset it, provide a temp
       * workaround */
  
  Revision  Changes    Path
  1.27      +10 -1     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.26
  retrieving revision 1.27
  diff -u -r1.26 -r1.27
  --- apr_perlio.c	12 May 2003 00:11:24 -0000	1.26
  +++ apr_perlio.c	25 Jul 2003 12:49:40 -0000	1.27
  @@ -40,6 +40,15 @@
       return code;
   }
   
  +static IV PerlIOAPR_popped(pTHX_ PerlIO *f)
  +{
  +    /* XXX: PL_perlio persists, and remembers old layers, which are
  +     * inactive, but core perlio should reset it, provide a temp
  +     * workaround */
  +    PL_perlio = NULL;
  +    return PerlIOBase_popped(aTHX_ f);
  +}
  +
   static PerlIO *PerlIOAPR_open(pTHX_ PerlIO_funcs *self,
                                 PerlIO_list_t *layers, IV n,
                                 const char *mode, int fd, int imode,
  @@ -384,7 +393,7 @@
       sizeof(PerlIOAPR),
       PERLIO_K_MULTIARG,
       PerlIOAPR_pushed,
  -    PerlIOBase_popped,
  +    PerlIOAPR_popped,
       PerlIOAPR_open,
       PerlIOBase_binmode,         /* binmode() is handled by :crlf */
       NULL,                       /* no getarg needed */
  
  
  

Mime
View raw message