From: Danny Sadinoff <sadinoff@olf.com>
Date: Fri, 9 May 1997 16:33:18 +0000 (-0400)
Subject: Don't require executable bit on perl -S if DOSISH
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7596f71a28f72f9e3abd6d3962d29a7752cd9303;p=p5sagit%2Fp5-mst-13.2.git

Don't require executable bit on perl -S if DOSISH

update to previous bugreport regarding the -x filetest and running
perl -S filename.

I misstated the patch necessary for turning off the executability check
for the -S option.  It should be:

p5p-msgid: 337351CE.79B28DE3@olf.com
---

diff --git a/perl.c b/perl.c
index 8af7172..e2ceb9e 100644
--- a/perl.c
+++ b/perl.c
@@ -1706,7 +1706,11 @@ SV *sv;
 	    if (retval < 0)
 		continue;
 	    if (S_ISREG(statbuf.st_mode)
-	     && cando(S_IRUSR,TRUE,&statbuf) && cando(S_IXUSR,TRUE,&statbuf)) {
+		&& cando(S_IRUSR,TRUE,&statbuf)
+#ifndef DOSISH
+		&& cando(S_IXUSR,TRUE,&statbuf)
+#endif
+		) {
 		xfound = tokenbuf;              /* bingo! */
 		break;
 	    }