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__
