summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorIlya Zakharevich <ilya@math.berkeley.edu>1998-11-25 18:33:45 -0500
committerGurusamy Sarathy <gsar@cpan.org>1998-11-28 18:35:35 +0000
commit22e551b9ed23de1d5af9977d67389142f4d41cc5 (patch)
tree076d061e252db2b367185a92e907bc710c9bee7d /pp.c
parentf2ac83ee9b0351aafadde538d84d97d64ef7e570 (diff)
downloadperl-22e551b9ed23de1d5af9977d67389142f4d41cc5.tar.gz
Fix \G in REx without //g
Message-Id: <199811260433.XAA29281@monk.mps.ohio-state.edu> p4raw-id: //depot/perl@2365
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp.c b/pp.c
index 0bd4842bb3..21a5dd39fe 100644
--- a/pp.c
+++ b/pp.c
@@ -4672,7 +4672,7 @@ PP(pp_split)
else {
maxiters += (strend - s) * rx->nparens;
while (s < strend && --limit &&
- CALLREGEXEC(rx, s, strend, orig, 1, Nullsv, NULL, 0))
+ CALLREGEXEC(rx, s, strend, orig, 1, sv, NULL, 0))
{
TAINT_IF(RX_MATCH_TAINTED(rx));
if (rx->subbase