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_perl.c modperl_perl.h
Date Sun, 21 Oct 2001 05:46:47 GMT
dougm       01/10/20 22:46:47

  Modified:    src/modules/perl modperl_perl.c modperl_perl.h
  Log:
  static-ize a few functions
  
  Revision  Changes    Path
  1.6       +14 -13    modperl-2.0/src/modules/perl/modperl_perl.c
  
  Index: modperl_perl.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_perl.c,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- modperl_perl.c	2001/10/09 00:13:00	1.5
  +++ modperl_perl.c	2001/10/21 05:46:47	1.6
  @@ -30,7 +30,7 @@
       }
   }
   
  -void modperl_perl_ids_get(modperl_perl_ids_t *ids)
  +static void modperl_perl_ids_get(modperl_perl_ids_t *ids)
   {
       ids->pid  = (I32)getpid();
   #ifndef WIN32
  @@ -46,7 +46,7 @@
   #endif
   }
   
  -void modperl_perl_init_ids(pTHX_ modperl_perl_ids_t *ids)
  +static void modperl_perl_init_ids(pTHX_ modperl_perl_ids_t *ids)
   {
       sv_setiv(GvSV(gv_fetchpv("$", TRUE, SVt_PV)), ids->pid);
   
  @@ -58,6 +58,18 @@
   #endif
   }
   
  +
  +#ifdef USE_ITHREADS
  +
  +static apr_status_t modperl_perl_init_ids_mip(pTHX_ modperl_interp_pool_t *mip,
  +                                              void *data)
  +{
  +    modperl_perl_init_ids(aTHX_ (modperl_perl_ids_t *)data);
  +    return APR_SUCCESS;
  +}
  +
  +#endif /* USE_ITHREADS */
  +
   void modperl_perl_init_ids_server(server_rec *s)
   {
       modperl_perl_ids_t ids;
  @@ -70,14 +82,3 @@
       modperl_perl_init_ids(aTHX_ &ids);
   #endif
   }
  -
  -#ifdef USE_ITHREADS
  -
  -apr_status_t modperl_perl_init_ids_mip(pTHX_ modperl_interp_pool_t *mip,
  -                                       void *data)
  -{
  -    modperl_perl_init_ids(aTHX_ (modperl_perl_ids_t *)data);
  -    return APR_SUCCESS;
  -}
  -
  -#endif /* USE_ITHREADS */
  
  
  
  1.6       +0 -11     modperl-2.0/src/modules/perl/modperl_perl.h
  
  Index: modperl_perl.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_perl.h,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- modperl_perl.h	2001/10/09 00:13:00	1.5
  +++ modperl_perl.h	2001/10/21 05:46:47	1.6
  @@ -9,17 +9,6 @@
   
   void modperl_perl_core_global_init(pTHX);
   
  -void modperl_perl_ids_get(modperl_perl_ids_t *ids);
  -
  -void modperl_perl_init_ids(pTHX_ modperl_perl_ids_t *ids);
  -
   void modperl_perl_init_ids_server(server_rec *s);
  -
  -#ifdef USE_ITHREADS
  -
  -apr_status_t modperl_perl_init_ids_mip(pTHX_ modperl_interp_pool_t *mip,
  -                                       void *data);
  -
  -#endif /* USE_ITHREADS */
   
   #endif /* MODPERL_PERL_H */
  
  
  

Mime
View raw message