In perl.git, the branch maint-5.20 has been updated <http://perl5.git.perl.org/perl.git/commitdiff/e98884d13a56f7b35d6a79a1d442dcdf0439e23b?hp=44a1b8137c64e24af9732af62eada50fbde60660>
- Log ----------------------------------------------------------------- commit e98884d13a56f7b35d6a79a1d442dcdf0439e23b Author: Father Chrysostomos <[email protected]> Date: Mon Nov 17 21:45:20 2014 -0800 svleak.t: Add test for #123198 ----------------------------------------------------------------------- Summary of changes: t/op/svleak.t | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/t/op/svleak.t b/t/op/svleak.t index 3b8df47..74a8338 100644 --- a/t/op/svleak.t +++ b/t/op/svleak.t @@ -15,7 +15,7 @@ BEGIN { use Config; -plan tests => 127; +plan tests => 128; # run some code N times. If the number of SVs at the end of loop N is # greater than (N-1)*delta at the end of loop 1, we've got a leak @@ -256,6 +256,7 @@ eleak(2,0,'/[pp]/'); eleak(2,0,'/[[:ascii:]]/'); eleak(2,0,'/[[.zog.]]/'); eleak(2,0,'/[.zog.]/'); +eleak(2,0,'/|\W/', '/|\W/ [perl #123198]'); eleak(2,0,'no warnings; /(?[])/'); eleak(2,0,'no warnings; /(?[[a]+[b]])/'); eleak(2,0,'no warnings; /(?[[a]-[b]])/'); -- Perl5 Master Repository
