X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.c;h=4ad77af79d8aaa54836fda7d5c5dace5d05784d5;hb=9d419b5f6925ac8219b490513f2c0e4f2d7c7f74;hp=de3b277088273f7b6eda34601b710bc67d531473;hpb=dbf3bb275a8c67f06df1e6e24df320e3d78b2d60;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl.c b/perl.c
index de3b277..4ad77af 100644
--- a/perl.c
+++ b/perl.c
@@ -1547,11 +1547,7 @@ setuid perl scripts securely.\n");
 	 }
 	 /* Can we grab env area too to be used as the area for $0? */
 	 if (s && PL_origenviron) {
-	      if ((PL_origenviron[0] == s + 1
-#ifdef OS2
-		   || (PL_origenviron[0] == s + 9 && (s += 8))
-#endif 
-		  )
+	      if ((PL_origenviron[0] == s + 1)
 		  ||
 		  (aligned &&
 		   (PL_origenviron[0] >  s &&
@@ -1559,7 +1555,7 @@ setuid perl scripts securely.\n");
 		    INT2PTR(char *, PTR2UV(s + PTRSIZE) & mask)))
 		 )
 	      {
-#ifndef OS2
+#ifndef OS2		/* ENVIRON is read by the kernel too. */
 		   s = PL_origenviron[0];
 		   while (*s) s++;
 #endif