add workaround for dlopen() bug on OpenBSD (relative paths that

[p5sagit/p5-mst-13.2.git] / makedef.pl

diff --git a/makedef.pl b/makedef.pl
index 1d585a2..94242ff 100644 (file)
--- a/makedef.pl
+++ b/makedef.pl
@@ -116,14 +116,8 @@ if ($PLATFORM eq 'win32') {
 #    exit(0);
     }
     else {
-       if ($CCTYPE ne 'GCC') {
-           print "LIBRARY Perl\n";
-           print "DESCRIPTION 'Perl interpreter, export autogenerated'\n";
-       }
-       else {
-           $define{'PERL_GLOBAL_STRUCT'} = 1;
-           $define{'MULTIPLICITY'} = 1;
-       }
+       print "LIBRARY Perl\n";
+       print "DESCRIPTION 'Perl interpreter, export autogenerated'\n";
        print "EXPORTS\n";
     } 
 }
@@ -338,6 +332,11 @@ if ($define{'MYMALLOC'}) {
                    Perl_realloc
                    Perl_calloc
                    )];
+    if ($define{'USE_THREADS'} || $define{'USE_ITHREADS'}) {
+       emit_symbols [qw(
+                       PL_malloc_mutex
+                       )];
+    }
 }
 else {
     skip_symbols [qw(
@@ -357,7 +356,6 @@ unless ($define{'USE_THREADS'}) {
                    PL_sv_mutex
                    PL_strtab_mutex
                    PL_svref_mutex
-                   PL_malloc_mutex
                    PL_cred_mutex
                    PL_eval_mutex
                    PL_eval_cond