diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-06-06 14:14:06 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-06-06 17:53:22 -0700 |
| commit | b573e7000fd9c1cfae30ae5fb328a25b9bf3870a (patch) | |
| tree | 4a332b3ccbeb01db329067b6c7b2edb8249a8b74 /t | |
| parent | 4bc5d08976b7df23b63a56cc017a20ac5766fbbc (diff) | |
| download | perl-b573e7000fd9c1cfae30ae5fb328a25b9bf3870a.tar.gz | |
Don’t leak when compiling /(?[\d\d])/
The ‘Operand with no preceding operator’ error was leaking the last
two operands.
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 c8e0354471..71bfbb734e 100644 --- a/t/op/svleak.t +++ b/t/op/svleak.t @@ -15,7 +15,7 @@ BEGIN { use Config; -plan tests => 123; +plan tests => 124; # 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 @@ -249,6 +249,7 @@ eleak(2,0,'no warnings; /(?[[a]^[b]])/'); eleak(2,0,'no warnings; /(?[![a]])/'); eleak(2,0,'no warnings; /(?[\p{Word}])/'); eleak(2,0,'no warnings; /(?[[a]+)])/'); +eleak(2,0,'no warnings; /(?[\d\d)])/'); # These can generate one ref count, but just once. eleak(4,1,'chr(0x100) =~ /[[:punct:]]/'); |