diff options
author | Andy Armstrong <andy@hexten.net> | 2010-08-15 12:05:23 +0100 |
---|---|---|
committer | George Greer <perl@greerga.m-l.org> | 2010-08-17 18:36:31 -0400 |
commit | c410dd6ad7a0e7169d54bd81c10eae997ada5d38 (patch) | |
tree | bbc1248b42740261aae1933117cd40cfb339562d /pp_sys.c | |
parent | 4feb80ac47a22e7de7d7c1c1d5dfb3d744a2a3a7 (diff) | |
download | perl-c410dd6ad7a0e7169d54bd81c10eae997ada5d38.tar.gz |
Make sure the stack is balanced in the case that we fake the result of unsupported filetests.
This time with an appropriate comment on the test. And with that I'll
attempt to stop spamming P5P, at least for today, and go and do
something less risky. Running with scissors perhaps.
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 12 |
1 files changed, 9 insertions, 3 deletions
@@ -3219,16 +3219,22 @@ PP(pp_ftrowned) /* I believe that all these three are likely to be defined on most every system these days. */ #ifndef S_ISUID - if(PL_op->op_type == OP_FTSUID) + if(PL_op->op_type == OP_FTSUID) { + (void) POPs; RETPUSHNO; + } #endif #ifndef S_ISGID - if(PL_op->op_type == OP_FTSGID) + if(PL_op->op_type == OP_FTSGID) { + (void) POPs; RETPUSHNO; + } #endif #ifndef S_ISVTX - if(PL_op->op_type == OP_FTSVTX) + if(PL_op->op_type == OP_FTSVTX) { + (void) POPs; RETPUSHNO; + } #endif STACKED_FTEST_CHECK; |