Perl 5.001perl-5.001

[See the Changes file for a list of changes]

1 files changed, 3 insertions, 1 deletions

diff --git a/cop.h b/cop.h
index 5a04e41e83..3953dd47b9 100644
--- a/cop.h
+++ b/cop.h
@@ -64,13 +64,15 @@ struct block_eval {
     I32		old_op_type;
     char *	old_name;
     OP *	old_eval_root;
+    SV *	cur_text;
 };
 
 #define PUSHEVAL(cx,n,fgv)						\
 	cx->blk_eval.old_in_eval = in_eval;				\
 	cx->blk_eval.old_op_type = op->op_type;				\
 	cx->blk_eval.old_name = n;					\
-	cx->blk_eval.old_eval_root = eval_root;
+	cx->blk_eval.old_eval_root = eval_root;				\
+	cx->blk_eval.cur_text = linestr;
 
 #define POPEVAL(cx)							\
 	in_eval = cx->blk_eval.old_in_eval;				\