/* perlvars.h
*
- * Copyright (C) 1999, 2000, 2001, 2002, by Larry Wall and others
+ * Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
+ * by Larry Wall and others
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
PERLVAR(Gsv_placeholder, SV)
#ifndef PERL_MICRO
-PERLVARI(Gcsighandlerp, Sighandler_t, &Perl_csighandler) /* Pointer to C-level sighandler */
+PERLVARI(Gcsighandlerp, Sighandler_t, Perl_csighandler) /* Pointer to C-level sighandler */
#endif
#ifndef PERL_USE_SAFE_PUTENV
PERLVARA(Gsig_ignoring, SIG_SIZE, int) /* which signals we are ignoring */
#endif
#ifdef FAKE_DEFAULT_SIGNAL_HANDLERS
-PERLVAR(Gsig_defaulting, SIG_SIZE, int)
+PERLVARA(Gsig_defaulting, SIG_SIZE, int)
#endif
#ifndef PERL_IMPLICIT_CONTEXT
PERLVAR(Gtimesbase, struct tms)
#endif
+/* allocate a unique index to every module that calls MY_CXT_INIT */
+#ifdef PERL_IMPLICIT_CONTEXT
+# ifdef USE_ITHREADS
+PERLVAR(Gmy_ctx_mutex, perl_mutex)
+# endif
+PERLVARI(Gmy_cxt_index, int, 0)
+#endif