s/TMP_CRLF_PATCH/PERL_STRICT_CR/ with sense reversed, so they

[p5sagit/p5-mst-13.2.git] / win32 / win32.c

diff --git a/win32/win32.c b/win32/win32.c
index dd9fa69..721b62a 100644 (file)
--- 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