diff options
| author | Karl <khw@karl.(none)> | 2009-01-25 19:02:13 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-01-26 09:32:50 +0100 |
| commit | b3a04dd304972047fb13ae81948fa8b870cd855a (patch) | |
| tree | 8951de28ad4c8d26e6206aa33f415e2a954f1ea5 /regexec.c | |
| parent | a979ce91b3156b6065490e91b716d497fcb52adb (diff) | |
| download | perl-b3a04dd304972047fb13ae81948fa8b870cd855a.tar.gz | |
Fix memory leak
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -5807,6 +5807,9 @@ S_reginclass(pTHX_ const regexp *prog, register const regnode *n, register const match = TRUE; } } + + /* If we allocated a string above, free it */ + if (! do_utf8) Safefree(utf8_p); } } if (match && lenp && *lenp == 0) |