diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-20 18:54:27 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-20 18:54:27 +0000 |
| commit | 8fdd422b549aa89c85abf0d3cec589db64be43b6 (patch) | |
| tree | 2d83d546348c524501577c9a936f6e5faeff615c /regexec.c | |
| parent | 2c19a612638327a9654b39302223a9a15fba4160 (diff) | |
| download | perl-8fdd422b549aa89c85abf0d3cec589db64be43b6.tar.gz | |
avoid reading out-of-bounds memory when matching against reference
p4raw-id: //depot/perl@5167
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -688,7 +688,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos, ? s + (prog->minlen? cl_l : 0) : (prog->float_substr ? check_at - start_shift + cl_l : strend) ; - char *startpos = sv ? strend - SvCUR(sv) : s; + char *startpos = sv && SvPOK(sv) ? strend - SvCUR(sv) : s; t = s; if (prog->reganch & ROPT_UTF8) { |