diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-01-03 19:12:08 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-01-03 19:12:08 -0600 |
| commit | 777923fe6d993cd91dfc24207b845251b5e259d9 (patch) | |
| tree | ea917b19746e6cda5d2271ca83da3b1d45a68a96 | |
| parent | 545ac8af4f349ec57acb6456a54655504b4afb43 (diff) | |
| download | package-stash-xs-777923fe6d993cd91dfc24207b845251b5e259d9.tar.gz package-stash-xs-777923fe6d993cd91dfc24207b845251b5e259d9.zip | |
Revert "apparently we're acting more like the pp version here now/:"
This reverts commit fb4f6d8a7deae9d951ac16c5882ff2146ab5f6f2.
i don't see this behavior any more?
| -rw-r--r-- | xt/author/leaks-debug.t | 4 | ||||
| -rw-r--r-- | xt/author/leaks.t | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/xt/author/leaks-debug.t b/xt/author/leaks-debug.t index 420356b..0b7963f 100644 --- a/xt/author/leaks-debug.t +++ b/xt/author/leaks-debug.t @@ -73,7 +73,9 @@ use Symbol; no_leaks_ok { $foo->add_symbol('&code_init' => sub { "foo" }); } "add_symbol code doesn't leak"; - { local $TODO = "the pure perl implementation 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"; 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"; |