X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=win32%2Fwin32.c;h=721b62ace99480c34488754bfb8faa569e4835bc;hb=b8957cf14d64aac7919c660fa810962ddf2b2dee;hp=dd9fa696b9dff52ea0a77ae444b8debde36f2c83;hpb=db15561cb83ed8e36f76d63e4283fc51c30fd71f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/win32/win32.c b/win32/win32.c
index dd9fa69..721b62a 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;
@@ -1162,14 +1162,21 @@ win32_alarm(unsigned int sec)
     return 0;
 }
 
+#if defined(HAVE_DES_FCRYPT) || defined(PERL_OBJECT)
 #ifdef HAVE_DES_FCRYPT
 extern char *	des_fcrypt(char *cbuf, const char *txt, const char *salt);
+#endif
 
 DllExport char *
 win32_crypt(const char *txt, const char *salt)
 {
+#ifdef HAVE_DES_FCRYPT
     dTHR;
     return des_fcrypt(crypt_buffer, txt, salt);
+#else
+    die("The crypt() function is unimplemented due to excessive paranoia.");
+    return Nullch;
+#endif
 }
 #endif