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

[pgollucci]

Author: pgollucci
Date: Fri Dec  1 05:19:12 2006
New Revision: 481237

URL: http://svn.apache.org/viewvc?view=rev&rev=481237
Log:
Fix a segfault I just introduced  
this allows a bleed ithread enabled perls 
to startup again using the prefork mpm.  worker still bombs though
  

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/viewvc/perl/modperl/trunk/src/modules/perl/mod_perl.c?view=diff&rev=481237&r1=481236&r2=481237
==============================================================================
--- perl/modperl/trunk/src/modules/perl/mod_perl.c (original)
+++ perl/modperl/trunk/src/modules/perl/mod_perl.c Fri Dec  1 05:19:12 2006
@@ -590,7 +590,7 @@
   ((PERL_VERSION == 9 && PERL_SUBVERSION > 4) || \
    PERL_VERSION > 9)
     modperl_cleanup_data_t *cdata = (modperl_cleanup_data_t *)data;
-    PerlInterpreter *my_perl = (PerlInterpreter *)cdata->data;
+    PerlInterpreter *my_perl = cdata == NULL ? NULL : (PerlInterpreter 
*)cdata->data;
 # endif
 #endif
     MP_init_status = 0;