diff options
author | Karl Williamson <khw@cpan.org> | 2014-11-17 21:49:08 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2014-11-18 10:13:20 -0700 |
commit | 512e01ab009bc6309309e05891effe8ae3c0e9da (patch) | |
tree | 92ecf9adff2639cd74e1b50909cc11e64f267a64 /t | |
parent | 4692fc6a8864d5b51d14d412f2c36e08fbad8626 (diff) | |
download | perl-512e01ab009bc6309309e05891effe8ae3c0e9da.tar.gz |
PATCH: [perl #123198] Memory leak in regex in 5.20.1
The SV was declared temporary but the pointer to it was getting changed
to another SV under some circumstances and the reference to that wasn't
getting decremented. The temporary stemmed from earlier code and was no
longer needed. Now, an explicit reference decrement is always done.
Diffstat (limited to 't')
-rw-r--r-- | t/op/svleak.t | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/t/op/svleak.t b/t/op/svleak.t index 358035dff1..8d42265b8f 100644 --- a/t/op/svleak.t +++ b/t/op/svleak.t @@ -256,9 +256,7 @@ eleak(2,0,'/[pp]/'); eleak(2,0,'/[[:ascii:]]/'); eleak(2,0,'/[[.zog.]]/'); eleak(2,0,'/[.zog.]/'); -$::TODO = 'still leaks'; eleak(2,0,'/|\W/', '/|\W/ [perl #123198]'); -$::TODO = ''; eleak(2,0,'no warnings; /(?[])/'); eleak(2,0,'no warnings; /(?[[a]+[b]])/'); eleak(2,0,'no warnings; /(?[[a]-[b]])/'); |