summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorHugo van der Sanden <hv@crypt.org>2002-07-15 03:22:35 +0100
committerJarkko Hietaniemi <jhi@iki.fi>2002-07-15 03:31:05 +0000
commit075aa684ec81e9e453dcae460c5e0d15bc196a37 (patch)
treef6483d45f54909c97482304b771ca933d1a5941d /regexec.c
parent135dda528f5206b5b382c504503de4de956e4ac0 (diff)
downloadperl-075aa684ec81e9e453dcae460c5e0d15bc196a37.tar.gz
Re: Regexp causes coredump
Message-Id: <200207150122.g6F1MZP31385@crypt.compulink.co.uk> p4raw-id: //depot/perl@17541
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/regexec.c b/regexec.c
index 4f403a0443..5a7ed12f65 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2805,7 +2805,7 @@ S_regmatch(pTHX_ regnode *prog)
CALLRUNOPS(aTHX); /* Scalar context. */
SPAGAIN;
if (SP == before)
- ret = Nullsv; /* protect against empty (?{}) blocks. */
+ ret = &PL_sv_undef; /* protect against empty (?{}) blocks. */
else {
ret = POPs;
PUTBACK;