X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.c;h=464a49b0d94442ae07e6ecc267e0a2d63663a4c0;hb=6ee623d521a149edc6574c512fa951a192cd086a;hp=16c5b9fd7f87b75721a1c58c2a78c667292e8c02;hpb=20408e3ccf502b6ce4033d8203710405ec9ef8f6;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl.c b/perl.c
index 16c5b9f..464a49b 100644
--- a/perl.c
+++ b/perl.c
@@ -699,7 +699,7 @@ setuid perl scripts securely.\n");
 	    if (euid != uid || egid != gid)
 		croak("No -e allowed in setuid scripts");
 	    if (!e_fp) {
-#ifdef HAS_UMASK
+#if defined(HAS_UMASK) && !defined(VMS)
 		int oldumask = PerlLIO_umask(0177);
 #endif
 	        e_tmpname = savepv(TMPPATH);
@@ -726,7 +726,7 @@ setuid perl scripts securely.\n");
 #endif
   		if (!e_fp)
  		    croak("Cannot create temporary file \"%s\"", e_tmpname);
-#ifdef HAS_UMASK
+#if defined(HAS_UMASK) && !defined(VMS)
 		(void)PerlLIO_umask(oldumask);
 #endif
 	    }