From 5c5e4c245abefef949ee72dd179eff31d923dcb2 Mon Sep 17 00:00:00 2001 From: Ilya Zakharevich Date: Fri, 27 Nov 1998 19:33:17 -0500 Subject: Finishing off SNOBOL: $1 in (?{}) Message-Id: <199811280533.AAA25654@monk.mps.ohio-state.edu> p4raw-id: //depot/perl@2372 --- thrdvar.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'thrdvar.h') diff --git a/thrdvar.h b/thrdvar.h index d9cb9c6334..cb39d0896d 100644 --- a/thrdvar.h +++ b/thrdvar.h @@ -160,6 +160,8 @@ PERLVAR(Treg_ganch, char *) /* position of \G */ PERLVAR(Treg_sv, SV *) /* what we match against */ PERLVAR(Treg_magic, MAGIC *) /* pos-magic of what we match */ PERLVAR(Treg_oldpos, I32) /* old pos of what we match */ +PERLVARI(Treg_oldcurpm, PMOP*, NULL) /* curpm before match */ +PERLVARI(Treg_curpm, PMOP*, NULL) /* curpm during match */ PERLVARI(Tregcompp, regcomp_t, FUNC_NAME_TO_PTR(pregcomp)) /* Pointer to RE compiler */ -- cgit v1.2.1