summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorIlya Zakharevich <ilya@math.berkeley.edu>1998-11-25 21:46:20 -0500
committerGurusamy Sarathy <gsar@cpan.org>1998-11-28 18:46:05 +0000
commit9661b5442a5f8dacc64d54eb1de98575f21de5f2 (patch)
tree84e57af266a3e6712f3ef5d10290439b25673c13 /pp_ctl.c
parent4b6a72707ac8d719699d8abaea2936e151652d33 (diff)
downloadperl-9661b5442a5f8dacc64d54eb1de98575f21de5f2.tar.gz
applied suggested patch with PERL_OBJECT tweaks
Message-Id: <199811260746.CAA23164@monk.mps.ohio-state.edu> Subject: [PATCH 5.005_53] Enable $_ and pos() inside (?{ CODE }) in RExen p4raw-id: //depot/perl@2367
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index f2cee37774..a4fabd2cdd 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -164,7 +164,7 @@ PP(pp_substcont)
/* Are we done */
if (cx->sb_once || !CALLREGEXEC(rx, s, cx->sb_strend, orig,
- s == m, Nullsv, cx->sb_targ,
+ s == m, cx->sb_targ, NULL,
((cx->sb_rflags & REXEC_COPY_STR)
? 0 : REXEC_COPY_STR)))
{