svn commit: r109224 - /perl/modperl/trunk/src/modules/perl/mod_perl.c

[stas]

Author: stas
Date: Tue Nov 30 10:35:04 2004
New Revision: 109224

URL: http://svn.apache.org/viewcvs?view=rev&rev=109224
Log:
init the MP_global_anon_cnt only once in the parent server

Modified:
   perl/modperl/trunk/src/modules/perl/mod_perl.c

Modified: perl/modperl/trunk/src/modules/perl/mod_perl.c
Url: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/src/modules/perl/mod_perl.c?view=diff&rev=109224&p1=perl/modperl/trunk/src/modules/perl/mod_perl.c&r1=109223&p2=perl/modperl/trunk/src/modules/perl/mod_perl.c&r2=109224
==============================================================================
--- perl/modperl/trunk/src/modules/perl/mod_perl.c      (original)
+++ perl/modperl/trunk/src/modules/perl/mod_perl.c      Tue Nov 30 10:35:04 2004
@@ -279,9 +279,11 @@
     av_push(GvAV(PL_incgv),
             newSVpv(ap_server_root_relative(p, "lib/perl"), 0));
 #endif /* MP_COMPAT_1X */
-    
-    modperl_handler_anon_init(aTHX_ p);
-    
+
+    if (!s->is_virtual) {
+        modperl_handler_anon_init(aTHX_ p);
+    }
+
     if (!modperl_config_apply_PerlRequire(s, scfg, perl, p)) {
         exit(1);
     }