dougm 01/09/12 19:40:33 Modified: xs/APR/APR APR.pm Log: only bootstrap outside of mod_perl Revision Changes Path 1.2 +4 -1 modperl-2.0/xs/APR/APR/APR.pm Index: APR.pm =================================================================== RCS file: /home/cvs/modperl-2.0/xs/APR/APR/APR.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- APR.pm 2001/03/05 03:51:16 1.1 +++ APR.pm 2001/09/13 02:40:33 1.2 @@ -7,7 +7,10 @@ #dlopen("APR.so", RTDL_GLOBAL); so we only need to link libapr.a once sub dl_load_flags { 0x01 } -__PACKAGE__->bootstrap($VERSION); +unless (defined &APR::XSLoader::BOOTSTRAP) { + __PACKAGE__->bootstrap($VERSION); + *APR::XSLoader::BOOTSTRAP = sub () { 1 }; +} 1; __END__