diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-14 11:35:04 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-14 11:35:04 +0000 |
| commit | 3d82f0cdac7e45415d6eeb0eb18c4b5c1d1f1728 (patch) | |
| tree | 101b9329dad3b10e8699674029d4fd1baf213874 /mg.c | |
| parent | d735c2efe0b08b05adfb893625476bf4480a2ece (diff) | |
| download | perl-3d82f0cdac7e45415d6eeb0eb18c4b5c1d1f1728.tar.gz | |
Assert that we don't access strings saved for $1 etc. out of bounds
p4raw-id: //depot/perl@29271
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -854,6 +854,7 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) i = t1 - s1; s = rx->subbeg + s1; assert(rx->subbeg); + assert(rx->sublen >= s1); getrx: if (i >= 0) { |