diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-12-04 11:18:36 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-12-04 14:33:31 -0800 |
| commit | d15d727a14644c88dcdc421859433cb86111c0ea (patch) | |
| tree | fc90a73328f044340a5166941c888da58684117a /t/op/svleak.t | |
| parent | f5eec17cdc8138641bd75afb9c79295f9bbecde3 (diff) | |
| download | perl-d15d727a14644c88dcdc421859433cb86111c0ea.tar.gz | |
Stop /[:foo:]/ from leaking under fatal warnings
This commit arranges for the regexp and one temporary sv in S_regclass
to be freed in case the ‘POSIX syntax [: :] belongs inside character
classes’ 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 ad67259252..129ad0591a 100644 --- a/t/op/svleak.t +++ b/t/op/svleak.t @@ -101,8 +101,8 @@ eleak(2, 0, "$f 'closure'; eleak(2, 0, "$all /(?{})?/ ", '(?{})? with fatal warnings'); eleak(2, 0, "$all /(?{})+/ ", '(?{})+ with fatal warnings'); eleak(2, 0, "$all /[\\i]/ ", 'invalid charclass escape with fatal warns'); -$::TODO = 'still leaks'; eleak(2, 0, "$all /[:foo:]/ ", '/[:foo:]/ with fatal warnings'); +$::TODO = 'still leaks'; eleak(2, 0, "$all /[a-\\d]/ ", '[a-\d] char class with fatal warnings'); eleak(2, 0, "$all v111111111111111111111111111111111111111111111111", 'vstring num overflow with fatal warnings'); |