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 */
