bump patchlevel to 52; other little tweaks for threads, win32 builds

p4raw-id: //depot/perl@1888

7 files changed, 59 insertions, 37 deletions

diff --git a/win32/Makefile b/win32/Makefile
index db9824026f..09baef7f70 100644
--- a/win32/Makefile
+++ b/win32/Makefile
@@ -25,7 +25,7 @@ INST_TOP	= $(INST_DRV)\perl
 # 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
diff --git a/win32/config_H.bc b/win32/config_H.bc
index 71ebeef71e..66567abc27 100644
--- a/win32/config_H.bc
+++ b/win32/config_H.bc
@@ -34,8 +34,8 @@
  *	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
@@ -802,11 +802,17 @@
  */
 #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
@@ -1788,8 +1794,8 @@
  *	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
@@ -1829,7 +1835,7 @@
  *	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:
@@ -1875,8 +1881,8 @@
  *	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.
@@ -1891,7 +1897,7 @@
  *	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:
@@ -1907,8 +1913,8 @@
  *	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
diff --git a/win32/config_H.gc b/win32/config_H.gc
index e158822388..c35d10e56f 100644
--- a/win32/config_H.gc
+++ b/win32/config_H.gc
@@ -34,8 +34,8 @@
  *	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
@@ -802,11 +802,17 @@
  */
 #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
@@ -1788,8 +1794,8 @@
  *	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
@@ -1829,7 +1835,7 @@
  *	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:
@@ -1875,8 +1881,8 @@
  *	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.
@@ -1891,7 +1897,7 @@
  *	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:
@@ -1907,8 +1913,8 @@
  *	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
diff --git a/win32/config_H.vc b/win32/config_H.vc
index a816261724..12e49cfe6f 100644
--- a/win32/config_H.vc
+++ b/win32/config_H.vc
@@ -34,8 +34,8 @@
  *	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
@@ -802,11 +802,17 @@
  */
 #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
@@ -1788,8 +1794,8 @@
  *	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
@@ -1829,7 +1835,7 @@
  *	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:
@@ -1875,8 +1881,8 @@
  *	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.
@@ -1891,7 +1897,7 @@
  *	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:
@@ -1907,8 +1913,8 @@
  *	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
diff --git a/win32/makedef.pl b/win32/makedef.pl
index f86029164e..6336c0c5bc 100644
--- a/win32/makedef.pl
+++ b/win32/makedef.pl
@@ -216,6 +216,7 @@ unless ($define{'USE_THREADS'})
   skip_symbols [qw(
 PL_thr_key
 PL_sv_mutex
+PL_strtab_mutex
 PL_svref_mutex
 PL_malloc_mutex
 PL_eval_mutex
diff --git a/win32/makefile.mk b/win32/makefile.mk
index fefb0360db..a7f01f1723 100644
--- a/win32/makefile.mk
+++ b/win32/makefile.mk
@@ -29,7 +29,7 @@ INST_TOP	*= $(INST_DRV)\perl
 # 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
diff --git a/win32/win32.c b/win32/win32.c
index 4ec3ee5685..e58af529e8 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -927,10 +927,12 @@ DllExport char *
 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) {
@@ -950,6 +952,7 @@ win32_getenv(const char *name)
 	    if (curitem) {
 		Safefree(curitem);
 		curitem = Nullch;
+		curlen = 0;
 	    }
 	    curitem = GetRegStr(name, &curitem, &curlen);
 	}