I32
do_trans(SV *sv)
{
+ dTHR;
STRLEN len;
if (SvREADONLY(sv) && !(PL_op->op_private & OPpTRANS_IDENTICAL))
STATIC void
save_magic(I32 mgs_ix, SV *sv)
{
+ dTHR;
MGS* mgs;
assert(SvMAGICAL(sv));
STATIC void
restore_magic(void *p)
{
+ dTHR;
MGS* mgs = SSPTR((I32)p, MGS*);
SV* sv = mgs->mgs_sv;
int
mg_get(SV *sv)
{
+ dTHR;
I32 mgs_ix;
MAGIC* mg;
MAGIC** mgp;
int
mg_set(SV *sv)
{
+ dTHR;
I32 mgs_ix;
MAGIC* mg;
MAGIC* nextmg;
#ifndef __PATCHLEVEL_H_INCLUDED__
#define PATCHLEVEL 5
#undef SUBVERSION /* OS/390 has a SUBVERSION in a system header */
-#define SUBVERSION 51
+#define SUBVERSION 52
/*
local_patches -- list of locally applied less-than-subversion patches.
STATIC char *
regcp_set_to(I32 ss)
{
+ dTHR;
I32 tmp = PL_savestack_ix;
PL_savestack_ix = ss;
STATIC void
cache_re(regexp *prog)
{
+ dTHR;
PL_regprecomp = prog->precomp; /* Needed for FAIL. */
#ifdef DEBUGGING
PL_regprogram = prog->program;
# versioned installation can be obtained by setting INST_TOP above to a
# path that includes an arbitrary version string.
#
-INST_VER = \5.00551
+INST_VER = \5.00552
#
# uncomment to enable threads-capabilities
* This symbol is the filename expanded version of the BIN symbol, for
* programs that do not want to deal with that at run-time.
*/
-#define BIN "c:\\perl\\5.00551\\bin\\MSWin32-x86" /**/
-#define BIN_EXP "c:\\perl\\5.00551\\bin\\MSWin32-x86" /**/
+#define BIN "c:\\perl\\5.00552\\bin\\MSWin32-x86" /**/
+#define BIN_EXP "c:\\perl\\5.00552\\bin\\MSWin32-x86" /**/
/* CPPSTDIN:
* This symbol contains the first part of the string which will invoke
*/
#define HAS_WCTOMB /**/
+/* EBCDIC:
+ * This symbol, if defined, indicates that this system uses
+ * EBCDIC encoding.
+ */
+/*#define EBCDIC /**/
+
/* I_ARPA_INET:
* This symbol, if defined, indicates that <arpa/inet.h> exists and should
* be included.
*/
-/*#define I_ARPA_INET /**/
+#define I_ARPA_INET /**/
/* I_DBM:
* This symbol, if defined, indicates that <dbm.h> exists and should
* The last element is 0, corresponding to the 0 at the end of
* the sig_name list.
*/
-#define SIG_NAME "ZERO", "INT", "QUIT", "ILL", "FPE", "KILL", "SEGV", "PIPE", "ALRM", "TERM", "USR1", "USR2", "CHLD", "USR3", "BREAK", "ABRT", "STOP", "CONT", "CLD", 0 /**/
-#define SIG_NUM 0, 2, 3, 4, 8, 9, 11, 13, 14, 15, 16, 17, 18, 20, 21, 22, 23, 25, 18, 0 /**/
+#define SIG_NAME "ZERO", "NUM01", "INT", "QUIT", "ILL", "NUM05", "NUM06", "NUM07", "FPE", "KILL", "NUM10", "SEGV", "NUM12", "PIPE", "ALRM", "TERM", "USR1", "USR2", "CHLD", "NUM19", "USR3", "BREAK", "ABRT", "STOP", "NUM24", "CONT", "CLD", 0 /**/
+#define SIG_NUM 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 18, 0 /**/
/* VOIDFLAGS:
* This symbol indicates how much support of the void type is given by this
* This symbol contains the ~name expanded version of ARCHLIB, to be used
* in programs that are not prepared to deal with ~ expansion at run-time.
*/
-#define ARCHLIB "c:\\perl\\5.00551\\lib\\MSWin32-x86" /**/
+#define ARCHLIB "c:\\perl\\5.00552\\lib\\MSWin32-x86" /**/
/*#define ARCHLIB_EXP "" /**/
/* DLSYM_NEEDS_UNDERSCORE:
* This symbol contains the ~name expanded version of PRIVLIB, to be used
* in programs that are not prepared to deal with ~ expansion at run-time.
*/
-#define PRIVLIB "c:\\perl\\5.00551\\lib" /**/
-#define PRIVLIB_EXP (win32_get_privlib("5.00551")) /**/
+#define PRIVLIB "c:\\perl\\5.00552\\lib" /**/
+#define PRIVLIB_EXP (win32_get_privlib("5.00552")) /**/
/* SITEARCH:
* This symbol contains the name of the private library for this package.
* This symbol contains the ~name expanded version of SITEARCH, to be used
* in programs that are not prepared to deal with ~ expansion at run-time.
*/
-#define SITEARCH "c:\\perl\\site\\5.00551\\lib\\MSWin32-x86" /**/
+#define SITEARCH "c:\\perl\\site\\5.00552\\lib\\MSWin32-x86" /**/
/*#define SITEARCH_EXP "" /**/
/* SITELIB:
* This symbol contains the ~name expanded version of SITELIB, to be used
* in programs that are not prepared to deal with ~ expansion at run-time.
*/
-#define SITELIB "c:\\perl\\site\\5.00551\\lib" /**/
-#define SITELIB_EXP (win32_get_sitelib("5.00551")) /**/
+#define SITELIB "c:\\perl\\site\\5.00552\\lib" /**/
+#define SITELIB_EXP (win32_get_sitelib("5.00552")) /**/
/* STARTPERL:
* This variable contains the string to put in front of a perl
* This symbol is the filename expanded version of the BIN symbol, for
* programs that do not want to deal with that at run-time.
*/
-#define BIN "c:\\perl\\5.00551\\bin\\MSWin32-x86" /**/
-#define BIN_EXP "c:\\perl\\5.00551\\bin\\MSWin32-x86" /**/
+#define BIN "c:\\perl\\5.00552\\bin\\MSWin32-x86" /**/
+#define BIN_EXP "c:\\perl\\5.00552\\bin\\MSWin32-x86" /**/
/* CPPSTDIN:
* This symbol contains the first part of the string which will invoke
*/
#define HAS_WCTOMB /**/
+/* EBCDIC:
+ * This symbol, if defined, indicates that this system uses
+ * EBCDIC encoding.
+ */
+/*#define EBCDIC /**/
+
/* I_ARPA_INET:
* This symbol, if defined, indicates that <arpa/inet.h> exists and should
* be included.
*/
-/*#define I_ARPA_INET /**/
+#define I_ARPA_INET /**/
/* I_DBM:
* This symbol, if defined, indicates that <dbm.h> exists and should
* The last element is 0, corresponding to the 0 at the end of
* the sig_name list.
*/
-#define SIG_NAME "ZERO", "INT", "QUIT", "ILL", "FPE", "KILL", "SEGV", "PIPE", "ALRM", "TERM", "CHLD", "BREAK", "ABRT", "STOP", "CONT", "CLD", 0 /**/
-#define SIG_NUM 0, 2, 3, 4, 8, 9, 11, 13, 14, 15, 20, 21, 22, 23, 25, 20, 0 /**/
+#define SIG_NAME "ZERO", "NUM01", "INT", "QUIT", "ILL", "NUM05", "NUM06", "NUM07", "FPE", "KILL", "NUM10", "SEGV", "NUM12", "PIPE", "ALRM", "TERM", "NUM16", "NUM17", "NUM18", "NUM19", "CHLD", "BREAK", "ABRT", "STOP", "NUM24", "CONT", "CLD", 0 /**/
+#define SIG_NUM 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 20, 0 /**/
/* VOIDFLAGS:
* This symbol indicates how much support of the void type is given by this
* This symbol contains the ~name expanded version of ARCHLIB, to be used
* in programs that are not prepared to deal with ~ expansion at run-time.
*/
-#define ARCHLIB "c:\\perl\\5.00551\\lib\\MSWin32-x86" /**/
+#define ARCHLIB "c:\\perl\\5.00552\\lib\\MSWin32-x86" /**/
/*#define ARCHLIB_EXP "" /**/
/* DLSYM_NEEDS_UNDERSCORE:
* This symbol contains the ~name expanded version of PRIVLIB, to be used
* in programs that are not prepared to deal with ~ expansion at run-time.
*/
-#define PRIVLIB "c:\\perl\\5.00551\\lib" /**/
-#define PRIVLIB_EXP (win32_get_privlib("5.00551")) /**/
+#define PRIVLIB "c:\\perl\\5.00552\\lib" /**/
+#define PRIVLIB_EXP (win32_get_privlib("5.00552")) /**/
/* SITEARCH:
* This symbol contains the name of the private library for this package.
* This symbol contains the ~name expanded version of SITEARCH, to be used
* in programs that are not prepared to deal with ~ expansion at run-time.
*/
-#define SITEARCH "c:\\perl\\site\\5.00551\\lib\\MSWin32-x86" /**/
+#define SITEARCH "c:\\perl\\site\\5.00552\\lib\\MSWin32-x86" /**/
/*#define SITEARCH_EXP "" /**/
/* SITELIB:
* This symbol contains the ~name expanded version of SITELIB, to be used
* in programs that are not prepared to deal with ~ expansion at run-time.
*/
-#define SITELIB "c:\\perl\\site\\5.00551\\lib" /**/
-#define SITELIB_EXP (win32_get_sitelib("5.00551")) /**/
+#define SITELIB "c:\\perl\\site\\5.00552\\lib" /**/
+#define SITELIB_EXP (win32_get_sitelib("5.00552")) /**/
/* STARTPERL:
* This variable contains the string to put in front of a perl
* This symbol is the filename expanded version of the BIN symbol, for
* programs that do not want to deal with that at run-time.
*/
-#define BIN "c:\\perl\\5.00551\\bin\\MSWin32-x86" /**/
-#define BIN_EXP "c:\\perl\\5.00551\\bin\\MSWin32-x86" /**/
+#define BIN "c:\\perl\\5.00552\\bin\\MSWin32-x86" /**/
+#define BIN_EXP "c:\\perl\\5.00552\\bin\\MSWin32-x86" /**/
/* CPPSTDIN:
* This symbol contains the first part of the string which will invoke
*/
#define HAS_WCTOMB /**/
+/* EBCDIC:
+ * This symbol, if defined, indicates that this system uses
+ * EBCDIC encoding.
+ */
+/*#define EBCDIC /**/
+
/* I_ARPA_INET:
* This symbol, if defined, indicates that <arpa/inet.h> exists and should
* be included.
*/
-/*#define I_ARPA_INET /**/
+#define I_ARPA_INET /**/
/* I_DBM:
* This symbol, if defined, indicates that <dbm.h> exists and should
* The last element is 0, corresponding to the 0 at the end of
* the sig_name list.
*/
-#define SIG_NAME "ZERO", "INT", "QUIT", "ILL", "FPE", "KILL", "SEGV", "PIPE", "ALRM", "TERM", "CHLD", "BREAK", "ABRT", "STOP", "CONT", "CLD", 0 /**/
-#define SIG_NUM 0, 2, 3, 4, 8, 9, 11, 13, 14, 15, 20, 21, 22, 23, 25, 20, 0 /**/
+#define SIG_NAME "ZERO", "NUM01", "INT", "QUIT", "ILL", "NUM05", "NUM06", "NUM07", "FPE", "KILL", "NUM10", "SEGV", "NUM12", "PIPE", "ALRM", "TERM", "NUM16", "NUM17", "NUM18", "NUM19", "CHLD", "BREAK", "ABRT", "STOP", "NUM24", "CONT", "CLD", 0 /**/
+#define SIG_NUM 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 20, 0 /**/
/* VOIDFLAGS:
* This symbol indicates how much support of the void type is given by this
* This symbol contains the ~name expanded version of ARCHLIB, to be used
* in programs that are not prepared to deal with ~ expansion at run-time.
*/
-#define ARCHLIB "c:\\perl\\5.00551\\lib\\MSWin32-x86" /**/
+#define ARCHLIB "c:\\perl\\5.00552\\lib\\MSWin32-x86" /**/
/*#define ARCHLIB_EXP "" /**/
/* DLSYM_NEEDS_UNDERSCORE:
* This symbol contains the ~name expanded version of PRIVLIB, to be used
* in programs that are not prepared to deal with ~ expansion at run-time.
*/
-#define PRIVLIB "c:\\perl\\5.00551\\lib" /**/
-#define PRIVLIB_EXP (win32_get_privlib("5.00551")) /**/
+#define PRIVLIB "c:\\perl\\5.00552\\lib" /**/
+#define PRIVLIB_EXP (win32_get_privlib("5.00552")) /**/
/* SITEARCH:
* This symbol contains the name of the private library for this package.
* This symbol contains the ~name expanded version of SITEARCH, to be used
* in programs that are not prepared to deal with ~ expansion at run-time.
*/
-#define SITEARCH "c:\\perl\\site\\5.00551\\lib\\MSWin32-x86" /**/
+#define SITEARCH "c:\\perl\\site\\5.00552\\lib\\MSWin32-x86" /**/
/*#define SITEARCH_EXP "" /**/
/* SITELIB:
* This symbol contains the ~name expanded version of SITELIB, to be used
* in programs that are not prepared to deal with ~ expansion at run-time.
*/
-#define SITELIB "c:\\perl\\site\\5.00551\\lib" /**/
-#define SITELIB_EXP (win32_get_sitelib("5.00551")) /**/
+#define SITELIB "c:\\perl\\site\\5.00552\\lib" /**/
+#define SITELIB_EXP (win32_get_sitelib("5.00552")) /**/
/* STARTPERL:
* This variable contains the string to put in front of a perl
skip_symbols [qw(
PL_thr_key
PL_sv_mutex
+PL_strtab_mutex
PL_svref_mutex
PL_malloc_mutex
PL_eval_mutex
# versioned installation can be obtained by setting INST_TOP above to a
# path that includes an arbitrary version string.
#
-INST_VER *= \5.00551
+INST_VER *= \5.00552
#
# uncomment to enable threads-capabilities
win32_getenv(const char *name)
{
static char *curitem = Nullch; /* XXX threadead */
- static DWORD curlen = 512; /* XXX threadead */
+ static DWORD curlen = 0; /* XXX threadead */
DWORD needlen;
- if (!curitem)
+ if (!curitem) {
+ curlen = 512;
New(1305,curitem,curlen,char);
+ }
needlen = GetEnvironmentVariable(name,curitem,curlen);
if (needlen != 0) {
if (curitem) {
Safefree(curitem);
curitem = Nullch;
+ curlen = 0;
}
curitem = GetRegStr(name, &curitem, &curlen);
}
projects / p5sagit/p5-mst-13.2.git / commitdiff