summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1998-11-09 01:56:24 +0000
committerGurusamy Sarathy <gsar@cpan.org>1998-11-09 01:56:24 +0000
commit642653c7e3215219ce2200f4c30c63d5b9e03f5f (patch)
tree54b1742196c269e0e36d36c71d22223e766f08ce /regexec.c
parent3836fe67c982a853016f3715017e513c5664fac3 (diff)
downloadperl-642653c7e3215219ce2200f4c30c63d5b9e03f5f.tar.gz
patches from Hugo van der Sanden <hv@crypt.compulink.co.uk>
Date: Wed, 04 Nov 1998 12:19:44 +0000 Message-Id: <199811041219.MAA05451@crypt.compulink.co.uk> Subject: [PATCH] Re: [5.005_53] read overflow? -- Date: Wed, 04 Nov 1998 13:15:18 +0000 Message-Id: <199811041315.NAA05711@crypt.compulink.co.uk> Subject: [PATCH 5.005_53] perl -V fix p4raw-id: //depot/perl@2222
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 1fc37fc2af..83db7b5472 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2267,7 +2267,7 @@ regmatch(regnode *prog)
n = 1;
if (scan->flags) {
s = HOPMAYBEc(locinput, -scan->flags);
- if (!s)
+ if (!s || s < PL_bostr)
goto say_no;
PL_reginput = s;
}