This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make Encode.pm implicitly load external CJK tables the first
[perl5.git] / perlvars.h
index adcc2c0..5195679 100644 (file)
@@ -46,11 +46,14 @@ PERLVAR(Gmalloc_mutex,      perl_mutex)     /* Mutex for malloc */
 
 #if defined(USE_ITHREADS)
 PERLVAR(Gop_mutex,     perl_mutex)     /* Mutex for op refcounting */
-PERLVAR(Gsharedsv_space, PerlInterpreter*) /* The shared sv space */
-PERLVAR(Gsharedsv_space_mutex, perl_mutex) /* Mutex protecting the shared sv space */
 #endif
 
 /* Force inclusion of both runops options */
 PERLVARI(Grunops_std,  runops_proc_t,  MEMBER_TO_FPTR(Perl_runops_standard))
 PERLVARI(Grunops_dbg,  runops_proc_t,  MEMBER_TO_FPTR(Perl_runops_debug))
 
+/* Hooks to shared SVs and locks. */
+PERLVARI(Gsharehook,   share_proc_t,   MEMBER_TO_FPTR(Perl_sv_nosharing))
+PERLVARI(Glockhook,    share_proc_t,   MEMBER_TO_FPTR(Perl_sv_nolocking))
+PERLVARI(Gunlockhook,  share_proc_t,   MEMBER_TO_FPTR(Perl_sv_nounlocking))
+