Based on

To: perl5-porters@perl.org
Subject: [PATCH 5.005_03-MAINT_TRIAL2] fixes for PERL_OBJECT and USE_THREADS builds
Message-ID: <3696aa85.18259325@smtp1.ibm.net>
except that
- objXSUB.h was already okay
- embed.h patching is futile, global.sym patched instead
- objpp.h does not exist
- proto.h addition applied manually
- win32/GenCAPI.pl was already okay
- win32/makedef.pl was already okay

p4raw-id: //depot/cfgperl@2572

diff --git a/global.sym b/global.sym
index 995a279..09b2008 100644 (file)
--- a/global.sym
+++ b/global.sym
@@ -4,6 +4,8 @@
 
 Gv_AMupdate
 amagic_call
+amagic_cmp
+amagic_cmp_locale
 append_elem
 append_list
 apply
@@ -483,6 +485,7 @@ scalar
 scalarkids
 scalarseq
 scalarvoid
+scan_bin
 scan_const
 scan_formline
 scan_heredoc

diff --git a/perl.c b/perl.c
index b2ffcc9..bc73c3d 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -126,6 +126,7 @@ perl_construct(register PerlInterpreter *sv_interp)
            croak("panic: pthread_key_create");
 #endif
        MUTEX_INIT(&PL_sv_mutex);
+       MUTEX_INIT(&PL_cred_mutex);
        /*
         * Safe to use basic SV functions from now on (though
         * not things like mortals or tainting yet).
@@ -558,6 +559,7 @@ perl_destruct(register PerlInterpreter *sv_interp)
 #ifdef USE_THREADS
     MUTEX_DESTROY(&PL_strtab_mutex);
     MUTEX_DESTROY(&PL_sv_mutex);
+    MUTEX_DESTROY(&PL_cred_mutex);
     MUTEX_DESTROY(&PL_eval_mutex);
     MUTEX_DESTROY(&PL_cred_mutex);
     COND_DESTROY(&PL_eval_cond);

diff --git a/proto.h b/proto.h
index 333bd23..051be92 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -946,6 +946,8 @@ VIRTUAL void        sv_setsv_mg _((SV *dstr, SV *sstr));
 VIRTUAL void   sv_usepvn_mg _((SV *sv, char *ptr, STRLEN len));
 
 VIRTUAL MGVTBL*        get_vtbl _((int vtbl_id));
+VIRTUAL I32     amagic_cmp _((register SV *str1, register SV *str2));
+VIRTUAL I32     amagic_cmp_locale _((register SV *str1, register SV *str2));
 
 /* New virtual functions must be added here to maintain binary
  * compatablity with PERL_OBJECT