cvs commit: modperl-2.0/xs/ModPerl/Const Const.pm

[dougm]

dougm       01/10/11 17:52:32

  Modified:    xs/ModPerl/Const Const.pm
  Log:
  RTDL_GLOBAL is only support on platforms using dlopen
  
  Revision  Changes    Path
  1.2       +5 -1      modperl-2.0/xs/ModPerl/Const/Const.pm
  
  Index: Const.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/ModPerl/Const/Const.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- Const.pm  2001/04/11 22:53:14     1.1
  +++ Const.pm  2001/10/12 00:52:32     1.2
  @@ -6,7 +6,11 @@
   our @ISA = qw(DynaLoader);
   
   #dlopen("Const.so", RTDL_GLOBAL);
  -sub dl_load_flags { 0x01 }
  +#XXX: this probably isn't portable; hpux works fine tho
  +use Config ();
  +use constant DL_GLOBAL =>
  +  $Config::Config{dlsrc} eq 'dl_dlopen.xs' ? 0x01 : 0x0;
  +sub dl_load_flags { DL_GLOBAL }
   
   __PACKAGE__->bootstrap($VERSION);