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/src/modules/perl modperl_sys.c modperl_sys.h
Date Mon, 08 Jul 2002 00:53:16 GMT
dougm       2002/07/07 17:53:16

  Modified:    src/modules/perl modperl_sys.c modperl_sys.h
  Log:
  add modperl_sys_is_dir function
  
  Revision  Changes    Path
  1.4       +17 -0     modperl-2.0/src/modules/perl/modperl_sys.c
  
  Index: modperl_sys.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_sys.c,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- modperl_sys.c	21 Jun 2002 01:32:56 -0000	1.3
  +++ modperl_sys.c	8 Jul 2002 00:53:15 -0000	1.4
  @@ -1,4 +1,21 @@
  +#include "modperl_largefiles.h"
   #include "mod_perl.h"
  +
  +/*
  + * Stat_t needs flags in modperl_largefiles.h
  + */
  +int modperl_sys_is_dir(pTHX_ SV *sv)
  +{
  +    Stat_t statbuf;
  +    STRLEN n_a;
  +    char *name = SvPV(sv, n_a);
  +
  +    if (PerlLIO_stat(name, &statbuf) < 0) {
  +        return 0;
  +    }
  +
  +    return S_ISDIR(statbuf.st_mode);
  +}
   
   /*
    * Perl does not provide this abstraction.
  
  
  
  1.2       +3 -0      modperl-2.0/src/modules/perl/modperl_sys.h
  
  Index: modperl_sys.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_sys.h,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- modperl_sys.h	21 Jun 2002 00:05:17 -0000	1.1
  +++ modperl_sys.h	8 Jul 2002 00:53:15 -0000	1.2
  @@ -6,6 +6,9 @@
    * hopefully won't be much here since Perl/APR/Apache
    * take care of most portablity issues.
    */
  +
  +int modperl_sys_is_dir(pTHX_ SV *sv);
  +
   int modperl_sys_dlclose(void *handle);
   
   #endif /* MODPERL_SYS_H */
  
  
  

Mime
View raw message