perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/xs/APR/PerlIO apr_perlio.c
Date Tue, 08 Jan 2002 01:06:20 GMT
dougm       02/01/07 17:06:20

  Modified:    xs/APR/PerlIO apr_perlio.c
  Log:
  add some debug info
  
  Revision  Changes    Path
  1.9       +23 -2     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.8
  retrieving revision 1.9
  diff -u -r1.8 -r1.9
  --- apr_perlio.c	4 Jan 2002 09:29:50 -0000	1.8
  +++ apr_perlio.c	8 Jan 2002 01:06:20 -0000	1.9
  @@ -82,6 +82,13 @@
       st->pool = modperl_sv2pool(aTHX_ sv);
     
       rc = apr_file_open(&st->file, path, apr_flag, APR_OS_DEFAULT, st->pool);
  +
  +#ifdef PERLIO_APR_DEBUG
  +    Perl_warn(aTHX_ "PerlIOAPR_open obj=0x%lx, file=0x%lx, name=%s, rc=%d\n",
  +              (unsigned long)f, (unsigned long)st->file,
  +              path ? path : "(UNKNOWN)", rc);
  +#endif
  +
       if (rc != APR_SUCCESS) {
           PerlIOBase(f)->flags |= PERLIO_F_ERROR;
           return NULL;
  @@ -110,6 +117,15 @@
           PerlIOAPR *ost = PerlIOSelf(o, PerlIOAPR);
   
           rc = apr_file_dup(&fst->file, ost->file, ost->pool);
  +
  +#ifdef PERLIO_APR_DEBUG
  +        Perl_warn(aTHX_ "PerlIOAPR_dup obj=0x%lx, "
  +                        "file=0x%lx => 0x%lx, rc=%d\n",
  +                  (unsigned long)f,
  +                  (unsigned long)ost->file,
  +                  (unsigned long)fst->file, rc);
  +#endif
  +
           if (rc == APR_SUCCESS) {
               fst->pool = ost->pool;
               return f;
  @@ -190,9 +206,14 @@
       IV code = PerlIOBase_close(aTHX_ f);
       apr_status_t rc;
   
  -    const char *new_path;
  +    const char *new_path = NULL;
       apr_file_name_get(&new_path, st->file);
  -    /* Perl_warn(aTHX_ "closing file %s\n", new_path); */
  +
  +#ifdef PERLIO_APR_DEBUG
  +    Perl_warn(aTHX_ "PerlIOAPR_close obj=0x%lx, file=0x%lx, name=%s\n",
  +              (unsigned long)f, (unsigned long)st->file,
  +              new_path ? new_path : "(UNKNOWN)");
  +#endif
   
       rc = apr_file_flush(st->file);
       if (rc != APR_SUCCESS) {
  
  
  

Mime
View raw message