home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / APR.pm < prev    next >
Encoding:
Perl POD Document  |  2003-06-09  |  534 b   |  21 lines
  1. package APR;
  2.  
  3. use DynaLoader ();
  4. our $VERSION = '0.01';
  5. our @ISA = qw(DynaLoader);
  6.  
  7. #dlopen("APR.so", RTDL_GLOBAL); so we only need to link libapr.a once
  8. # XXX: see xs/ModPerl/Const/Const.pm for issues of using 0x01
  9. use Config ();
  10. use constant DL_GLOBAL =>
  11.   ( $Config::Config{dlsrc} eq 'dl_dlopen.xs' && $^O ne 'openbsd' ) ? 0x01 : 0x0;
  12. sub dl_load_flags { DL_GLOBAL }
  13.  
  14. unless (defined &APR::XSLoader::BOOTSTRAP) {
  15.     __PACKAGE__->bootstrap($VERSION);
  16.     *APR::XSLoader::BOOTSTRAP = sub () { 1 };
  17. }
  18.  
  19. 1;
  20. __END__
  21.