perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/xs/APR/APR APR.pm
Date Thu, 13 Sep 2001 02:40:33 GMT
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__
  
  
  

Mime
View raw message