From 02b2a57f5ce745d7989c3fc74d054c6e1c71ee49 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 13 Nov 2010 11:48:10 -0600
Subject: one more memory leak

---
 t/20-leaks.t | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 't/20-leaks.t')

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;
-- 
cgit v1.2.3-54-g00ecf