PERLVAR(Gcurthr, struct perl_thread *)
/* Currently executing (fake) thread */
#endif
+
+PERLVAR(Gcred_mutex, perl_mutex) /* altered credentials in effect */
+
#endif /* USE_THREADS */
PERLVAR(Gninterps, int) /* number of active interpreters */
/* constants (these are not literals to facilitate pointer comparisons) */
PERLVARIC(GYes, char *, "1")
PERLVARIC(GNo, char *, "")
-PERLVARIC(Ghexdigit, char *, "0123456789abcdef0123456789ABCDEFx")
+PERLVARIC(Ghexdigit, char *, "0123456789abcdef0123456789ABCDEF")
PERLVARIC(Gpatleave, char *, "\\.^$@dDwWsSbB+*?|()-nrtfeaxc0123456789[{]}")
PERLVAR(Gspecialsv_list[4],SV *) /* from byterun.h */
PERLVAR(Gyynerrs, int)
PERLVAR(Gyyerrflag, int)
PERLVAR(Gyychar, int)
-PERLVAR(Gyyssp, short*)
-PERLVAR(Gyyvsp, YYSTYPE*)
PERLVAR(Gyyval, YYSTYPE)
PERLVAR(Gyylval, YYSTYPE)