summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2012-05-21 15:59:37 -0700
committerFather Chrysostomos <sprout@cpan.org>2012-05-21 16:07:27 -0700
commit8d7906e182f93e1854b5c77a2ec7dec90b79a3f3 (patch)
tree32e230aff5236daeaa60370c60e59ec2ef555971 /pp_sys.c
parentfe75fd00d2076d7b4f1d3702b67d22e96633c3b3 (diff)
downloadperl-8d7906e182f93e1854b5c77a2ec7dec90b79a3f3.tar.gz
Fix non-GCC compilation
I mistakenly thought XPUSHs(...) was an expression. Now it is.
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 787b8170a2..02b50eacf3 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -2924,10 +2924,10 @@ S_ft_stacking_return_false(pTHX_ SV *ret) {
#define FT_RETURN_TRUE(X) \
RETURNX((void)( \
PL_op->op_flags & OPf_REF \
- ? XPUSHs( \
+ ? (bool)XPUSHs( \
PL_op->op_private & OPpFT_STACKING ? (SV *)cGVOP_gv : (X) \
) \
- : (void)(PL_op->op_private & OPpFT_STACKING || SETs(X)) \
+ : (PL_op->op_private & OPpFT_STACKING || SETs(X)) \
))
#define FT_RETURNNO FT_RETURN_FALSE(&PL_sv_no)