diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-09-01 22:36:17 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-09-01 22:36:48 -0700 |
| commit | 3bf4a1dc4169e64441367a90ffb4ef88f763c17d (patch) | |
| tree | fd9ff94d8d66bdd31ae6aed6f46046234193e7bf /toke.c | |
| parent | 56610b8f2b65d1b4ac923119d519ef5afae19e61 (diff) | |
| download | perl-3bf4a1dc4169e64441367a90ffb4ef88f763c17d.tar.gz | |
Fix thinko in toke.c in 211a434
Oops. We can’t fiddle with the rv2cv op’s GV kid if it actually a
padcv op. Don’t even look at it when handling a lexical sub call,
because we don’t need it anyway.
This should hopefully mitigate valgrind complaints.
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -6704,7 +6704,7 @@ Perl_yylex(pTHX) } /* Resolve to GV now if this is a placeholder. */ - if ((gvop = cUNOPx(rv2cv_op)->op_first) + if (!off && (gvop = cUNOPx(rv2cv_op)->op_first) && gvop->op_type == OP_GV) { GV *gv2 = cGVOPx_gv(gvop); if (gv2 && !isGV(gv2)) { |