diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-05 22:07:18 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-05 22:07:18 +0000 |
| commit | cd06dffe59d60ee6a2fdd7c81f8cef42c7026b36 (patch) | |
| tree | bf5d5d4e9d1c11e7d63fd97ce74470e8bedc88d3 /dump.c | |
| parent | a2126434f8dd8eabb11a2219137816815758ea93 (diff) | |
| download | perl-cd06dffe59d60ee6a2fdd7c81f8cef42c7026b36.tar.gz | |
initial implementation of lvalue subroutines (slightly fixed
version of patch suggested by Ilya Zakharevich, which in turn
is based on the one suggested by Tuomas J. Lukka <lukka@iki.fi>)
p4raw-id: //depot/perl@4081
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -509,6 +509,9 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o) else if (o->op_type == OP_FLOP) { if (o->op_private & OPpFLIP_LINENUM) sv_catpv(tmpsv, ",LINENUM"); + } else if (o->op_type == OP_RV2CV) { + if (o->op_private & OPpLVAL_INTRO) + sv_catpv(tmpsv, ",INTRO"); } if (o->op_flags & OPf_MOD && o->op_private & OPpLVAL_INTRO) sv_catpv(tmpsv, ",INTRO"); |