From: Douglas Lankshear <doug@lankshear.net>
Date: Tue, 21 Jul 1998 11:08:00 +0000 (-0700)
Subject: win32 tweaks: disable XSLOCKS in perl.c, correct typo, search
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7a5f8e8207845ff5a07842e34a6849920492a274;p=p5sagit%2Fp5-mst-13.2.git

win32 tweaks: disable XSLOCKS in perl.c, correct typo, search
the registry for anything that begins with "PERL", not "PERL5"
	Message-Id: <000601bdb4d2$7ee74720$a32fa8c0@tau.Active>

p4raw-id: //depot/perl@1629
---

diff --git a/perl.c b/perl.c
index df306dc..27936cf 100644
--- a/perl.c
+++ b/perl.c
@@ -2957,6 +2957,9 @@ my_exit_jump(void)
     JMPENV_JUMP(2);
 }
 
+#ifdef PERL_OBJECT
+#define NO_XSLOCKS
+#endif  /* PERL_OBJECT */
 
 #include "XSUB.h"
 
diff --git a/win32/perlhost.h b/win32/perlhost.h
index 729dd57..e2d8ca7 100644
--- a/win32/perlhost.h
+++ b/win32/perlhost.h
@@ -661,7 +661,7 @@ public:
     };
     virtual int GetBufsiz(PerlIO* pf, int &err)
     {
-#ifdef FILE_bufsize
+#ifdef FILE_bufsiz
 	FILE *f = (FILE*)pf;
 	return FILE_bufsiz(f);
 #else
diff --git a/win32/win32.c b/win32/win32.c
index dd9fa69..970fc3f 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -942,13 +942,13 @@ win32_getenv(const char *name)
     }
     else
     {
-	/* allow any environment variables that begin with 'PERL5'
+	/* allow any environment variables that begin with 'PERL'
 	   to be stored in the registry
 	*/
 	if(curitem != NULL)
 	    *curitem = '\0';
 
-	if (strncmp(name, "PERL5", 5) == 0) {
+	if (strncmp(name, "PERL", 4) == 0) {
 	    if (curitem != NULL) {
 		Safefree(curitem);
 		curitem = NULL;