diff options
| author | Jesse Luehrs <doy@tozt.net> | 2010-11-13 11:48:10 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2010-11-13 11:48:10 -0600 |
| commit | 02b2a57f5ce745d7989c3fc74d054c6e1c71ee49 (patch) | |
| tree | cde0b3dba148802d6529830063788bae6ee9b519 /t/20-leaks.t | |
| parent | 12134e83d1a206c1305977bf3d986f2d91aa85a2 (diff) | |
| download | package-stash-xs-02b2a57f5ce745d7989c3fc74d054c6e1c71ee49.tar.gz package-stash-xs-02b2a57f5ce745d7989c3fc74d054c6e1c71ee49.zip | |
one more memory leak
Diffstat (limited to 't/20-leaks.t')
| -rw-r--r-- | t/20-leaks.t | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/t/20-leaks.t b/t/20-leaks.t index 53989a6..caebd4f 100644 --- a/t/20-leaks.t +++ b/t/20-leaks.t @@ -141,4 +141,16 @@ use Symbol; } "list_all_package_symbols doesn't leak"; } +# mimic CMOP::create_anon_class +{ + my $i = 0; + no_leaks_ok { + $i++; + eval "package Quux$i; 1;"; + my $quux = Package::Stash->new("Quux$i"); + $quux->get_or_add_package_symbol('@ISA'); + delete $::{'Quux' . $i . '::'}; + } "get_package_symbol doesn't leak during glob expansion"; +} + done_testing; |