You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2001/10/12 02:52:32 UTC
cvs commit: modperl-2.0/xs/ModPerl/Const Const.pm
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);