From cd06dffe59d60ee6a2fdd7c81f8cef42c7026b36 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sun, 5 Sep 1999 22:07:18 +0000 Subject: 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 ) p4raw-id: //depot/perl@4081 --- cop.h | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'cop.h') diff --git a/cop.h b/cop.h index f23251b543..d0a59a0f1f 100644 --- a/cop.h +++ b/cop.h @@ -35,12 +35,15 @@ struct block_sub { AV * argarray; U16 olddepth; U8 hasargs; + U8 lval; /* XXX merge lval and hasargs? */ }; #define PUSHSUB(cx) \ cx->blk_sub.cv = cv; \ cx->blk_sub.olddepth = CvDEPTH(cv); \ - cx->blk_sub.hasargs = hasargs; + cx->blk_sub.hasargs = hasargs; \ + cx->blk_sub.lval = PL_op->op_private & \ + (OPpLVAL_INTRO|OPpENTERSUB_INARGS); #define PUSHFORMAT(cx) \ cx->blk_sub.cv = cv; \ -- cgit v1.2.1