diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-21 11:49:38 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-21 11:49:38 +0000 |
| commit | 7df0357e86d252406ff52a5b94e0478fc1ccd1be (patch) | |
| tree | 32ef031dd3881a8ba8c89ba47c5302adda58083b /pp_ctl.c | |
| parent | b8d2d791b64fb0a5a279a8e56bdd03fa62c16e66 (diff) | |
| download | perl-7df0357e86d252406ff52a5b94e0478fc1ccd1be.tar.gz | |
More places that could be using G_WANT, not picked up by change 33021.
p4raw-id: //depot/perl@33024
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2999,9 +2999,9 @@ S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq) && cLISTOPx(cUNOPx(PL_eval_root)->op_first)->op_last->op_type == OP_REQUIRE) scalar(PL_eval_root); - else if (gimme & G_VOID) + else if ((gimme & G_WANT) == G_VOID) scalarvoid(PL_eval_root); - else if (gimme & G_ARRAY) + else if ((gimme & G_WANT) == G_ARRAY) list(PL_eval_root); else scalar(PL_eval_root); |