diff options
Diffstat (limited to 'xt/author/leaks.t')
-rw-r--r-- | xt/author/leaks.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/xt/author/leaks.t b/xt/author/leaks.t index fee9b57..767b4f1 100644 --- a/xt/author/leaks.t +++ b/xt/author/leaks.t @@ -71,7 +71,9 @@ use Symbol; no_leaks_ok { $foo->add_symbol('&code_init' => sub { "foo" }); } "add_symbol code doesn't leak"; - { local $TODO = "this leaks here somehow"; + { local $TODO = $Package::Stash::IMPLEMENTATION eq 'PP' + ? "the pure perl implementation leaks here somehow" + : undef; no_leaks_ok { $foo->add_symbol('io_init' => Symbol::geniosym); } "add_symbol io doesn't leak"; |