diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-05-31 21:40:18 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-05-31 21:40:18 +0000 |
| commit | e2b7feff2af4c9d2305c63ab7210f785f826d8e7 (patch) | |
| tree | 8106c150c82b470e58b836495d34d6a985e5851e /op.c | |
| parent | 12ae5dfcd4fd6f54af051c41b2e122532efce8d3 (diff) | |
| parent | c2a735686052c4e782e029afd2945461349272c6 (diff) | |
| download | perl-e2b7feff2af4c9d2305c63ab7210f785f826d8e7.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@6175
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1165,7 +1165,6 @@ Perl_scalarvoid(pTHX_ OP *o) case OP_DBSTATE: case OP_ENTERTRY: case OP_ENTER: - case OP_SCALAR: if (!(o->op_flags & OPf_KIDS)) break; /* FALL THROUGH */ @@ -1184,6 +1183,8 @@ Perl_scalarvoid(pTHX_ OP *o) case OP_REQUIRE: /* all requires must return a boolean value */ o->op_flags &= ~OPf_WANT; + /* FALL THROUGH */ + case OP_SCALAR: return scalar(o); case OP_SPLIT: if ((kid = cLISTOPo->op_first) && kid->op_type == OP_PUSHRE) { |