diff options
| author | pravus@cpan.org <pravus@cpan.org> | 2007-12-21 02:05:15 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-01-06 16:19:22 +0000 |
| commit | b376053de54af4268a31e5a60d1f9e57db30af11 (patch) | |
| tree | 0d48529b46f380bf24df213ff31fd89289b157d9 /pp_sys.c | |
| parent | 3a28f3fb1bfd44e4e3dfe6842af867c8c1c9de28 (diff) | |
| download | perl-b376053de54af4268a31e5a60d1f9e57db30af11.tar.gz | |
[perl #49003] pp_ftrread appears to use the wrong access mode for -x when using "use filetest 'access';"
From: pravus@cpan.org (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-22850-1198260315-255.49003-75-0@perl.org>
p4raw-id: //depot/perl@32874
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -2999,10 +2999,9 @@ PP(pp_ftrread) effective = TRUE; break; - case OP_FTEEXEC: #ifdef PERL_EFF_ACCESS - access_mode = W_OK; + access_mode = X_OK; #else use_access = 0; #endif |