summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorAndy Armstrong <andy@hexten.net>2010-08-15 12:05:23 +0100
committerGeorge Greer <perl@greerga.m-l.org>2010-08-17 18:36:31 -0400
commitc410dd6ad7a0e7169d54bd81c10eae997ada5d38 (patch)
treebbc1248b42740261aae1933117cd40cfb339562d /pp_sys.c
parent4feb80ac47a22e7de7d7c1c1d5dfb3d744a2a3a7 (diff)
downloadperl-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.c12
1 files changed, 9 insertions, 3 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 80a70cea70..ec826108ba 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -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;