diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-06-06 13:42:32 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-06-06 17:53:22 -0700 |
| commit | c80d037c54749655d40eac068936c5222ce9d8ee (patch) | |
| tree | 281ac29f131087c248fd25bb3de20ccb502c31f8 /t | |
| parent | 7a278470580a96e01c6545304d787761ea9d8c80 (diff) | |
| download | perl-c80d037c54749655d40eac068936c5222ce9d8ee.tar.gz | |
Stop /(?[\p{...}])/ compilation from leaking
The swash returned by utf8_heavy.pl was not being freed in the code
path to handle returning character classes to the (?[...]) parser
(when ret_invlist is true).
Diffstat (limited to 't')
| -rw-r--r-- | t/op/svleak.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/svleak.t b/t/op/svleak.t index b97a5cbd4c..0fb6b240ed 100644 --- a/t/op/svleak.t +++ b/t/op/svleak.t @@ -15,7 +15,7 @@ BEGIN { use Config; -plan tests => 121; +plan tests => 122; # 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 @@ -247,6 +247,7 @@ eleak(2,0,'no warnings; /(?[[a]&[b]])/'); eleak(2,0,'no warnings; /(?[[a]|[b]])/'); eleak(2,0,'no warnings; /(?[[a]^[b]])/'); eleak(2,0,'no warnings; /(?[![a]])/'); +eleak(2,0,'no warnings; /(?[\p{Word}])/'); # These can generate one ref count, but just once. eleak(4,1,'chr(0x100) =~ /[[:punct:]]/'); |