diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-12-02 17:40:36 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-12-03 08:53:44 -0800 |
| commit | 7d12ff0f842717c6be578ba6e7e2463a8d27673e (patch) | |
| tree | d8f161a446f58da5c8c07f3774cadc014e9a0622 /t/op/svleak.t | |
| parent | 6e240d0bbb2875825a18bd4f02983684ddfefa5f (diff) | |
| download | perl-7d12ff0f842717c6be578ba6e7e2463a8d27673e.tar.gz | |
Stop /(?{})+/ from leaking under fatal warnings
This commit arranges for the regexp to be freed in case the ‘blah blah
blah matches null string many times in regex’ warning proves fatal.
Diffstat (limited to 't/op/svleak.t')
| -rw-r--r-- | t/op/svleak.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/svleak.t b/t/op/svleak.t index bbccfa98d9..f4abbdb395 100644 --- a/t/op/svleak.t +++ b/t/op/svleak.t @@ -99,8 +99,8 @@ eleak(2, 0, "$f 'closure'; sub foo { my \$x; format=\n\@\n\$x\n.\n} write; ", 'format closing over unavailable var with fatal warnings'); eleak(2, 0, "$all /(?{})?/ ", '(?{})? with fatal warnings'); -$::TODO = 'still leaks'; eleak(2, 0, "$all /(?{})+/ ", '(?{})+ with fatal warnings'); +$::TODO = 'still leaks'; eleak(2, 0, "$all /[\\i]/ ", 'invalid charclass escape with fatal warns'); eleak(2, 0, "$all /[:foo:]/ ", '/[:foo:]/ with fatal warnings'); eleak(2, 0, "$all /[a-\\d]/ ", '[a-\d] char class with fatal warnings'); |