Change 33022 by [EMAIL PROTECTED] on 2008/01/21 09:04:54
Change the wantarray result from caller from IV to bool for the SCALAR/
ARRAY case. This doesn't contradict the documentation, as there isn't
any. Oops.
Affected files ...
... //depot/perl/pp_ctl.c#663 edit
Differences ...
==== //depot/perl/pp_ctl.c#663 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c#662~33019~ 2008-01-20 23:11:41.000000000 -0800
+++ perl/pp_ctl.c 2008-01-21 01:04:54.000000000 -0800
@@ -1669,7 +1669,7 @@
if (gimme == G_VOID)
PUSHs(&PL_sv_undef);
else
- mPUSHi(gimme & G_ARRAY);
+ PUSHs(boolSV((gimme & G_WANT) == G_ARRAY));
if (CxTYPE(cx) == CXt_EVAL) {
/* eval STRING */
if (cx->blk_eval.old_op_type == OP_ENTEREVAL) {
End of Patch.
