diff options
| author | Slaven Rezic <slaven@rezic.de> | 2003-05-03 20:26:49 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-03 15:30:45 +0000 |
| commit | 43b06338a7352a1850e7b7e6294bfb12026353ad (patch) | |
| tree | ed3f1cc0ab0bb6c1555d3de721520d03f1ec26be /pp_sys.c | |
| parent | feaeca788fb70f9d4aec1c392b5033f8e2c1542a (diff) | |
| download | perl-43b06338a7352a1850e7b7e6294bfb12026353ad.tar.gz | |
Re: Does filetest work at all?
Message-ID: <87ade4q9me.fsf@vran.herceg.de>
p4raw-id: //depot/perl@19394
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -2851,7 +2851,7 @@ PP(pp_ftrread) #if defined(HAS_ACCESS) && defined(R_OK) STRLEN n_a; if ((PL_op->op_private & OPpFT_ACCESS) && SvPOK(TOPs)) { - result = access(TOPpx, R_OK); + result = access(POPpx, R_OK); if (result == 0) RETPUSHYES; if (result < 0) @@ -2878,7 +2878,7 @@ PP(pp_ftrwrite) #if defined(HAS_ACCESS) && defined(W_OK) STRLEN n_a; if ((PL_op->op_private & OPpFT_ACCESS) && SvPOK(TOPs)) { - result = access(TOPpx, W_OK); + result = access(POPpx, W_OK); if (result == 0) RETPUSHYES; if (result < 0) @@ -2905,7 +2905,7 @@ PP(pp_ftrexec) #if defined(HAS_ACCESS) && defined(X_OK) STRLEN n_a; if ((PL_op->op_private & OPpFT_ACCESS) && SvPOK(TOPs)) { - result = access(TOPpx, X_OK); + result = access(POPpx, X_OK); if (result == 0) RETPUSHYES; if (result < 0) @@ -2932,7 +2932,7 @@ PP(pp_fteread) #ifdef PERL_EFF_ACCESS_R_OK STRLEN n_a; if ((PL_op->op_private & OPpFT_ACCESS) && SvPOK(TOPs)) { - result = PERL_EFF_ACCESS_R_OK(TOPpx); + result = PERL_EFF_ACCESS_R_OK(POPpx); if (result == 0) RETPUSHYES; if (result < 0) @@ -2959,7 +2959,7 @@ PP(pp_ftewrite) #ifdef PERL_EFF_ACCESS_W_OK STRLEN n_a; if ((PL_op->op_private & OPpFT_ACCESS) && SvPOK(TOPs)) { - result = PERL_EFF_ACCESS_W_OK(TOPpx); + result = PERL_EFF_ACCESS_W_OK(POPpx); if (result == 0) RETPUSHYES; if (result < 0) @@ -2986,7 +2986,7 @@ PP(pp_fteexec) #ifdef PERL_EFF_ACCESS_X_OK STRLEN n_a; if ((PL_op->op_private & OPpFT_ACCESS) && SvPOK(TOPs)) { - result = PERL_EFF_ACCESS_X_OK(TOPpx); + result = PERL_EFF_ACCESS_X_OK(POPpx); if (result == 0) RETPUSHYES; if (result < 0) |