This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don't require executable bit on perl -S if DOSISH
authorDanny Sadinoff <sadinoff@olf.com>
Fri, 9 May 1997 16:33:18 +0000 (12:33 -0400)
committerChip Salzenberg <chip@atlantic.net>
Thu, 15 May 1997 22:15:00 +0000 (10:15 +1200)
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

perl.c

diff --git a/perl.c b/perl.c
index 8af7172..e2ceb9e 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1706,7 +1706,11 @@ SV *sv;
            if (retval < 0)
                continue;
            if (S_ISREG(statbuf.st_mode)
            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;
            }
                xfound = tokenbuf;              /* bingo! */
                break;
            }