diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-11-15 14:39:32 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-11-15 14:52:12 -0800 |
| commit | fecc76070c6c0346948dd7fca7090beecc07a9ca (patch) | |
| tree | b8b5398e06032e9a748b8e991f3cf6c16de5f1e8 | |
| parent | 673ef7733b47cafbf48566eb6b312a3840666aee (diff) | |
| download | perl-fecc76070c6c0346948dd7fca7090beecc07a9ca.tar.gz | |
Correct an anonymisation test in stash.t
| -rw-r--r-- | t/op/stash.t | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/t/op/stash.t b/t/op/stash.t index fb74449dbc..81d6d545bb 100644 --- a/t/op/stash.t +++ b/t/op/stash.t @@ -120,9 +120,7 @@ SKIP: { ok($gv->isa(q/B::GV/), "cleared stash leaves anon CV with valid GV"); my $st = eval { $gv->STASH->NAME }; - { local $TODO = 'STASHES not anonymized'; - is($st, q/__ANON__/, "...and an __ANON__ stash"); - } + is($st, q/four/, "...but leaves the stash intact"); my $sub = do { package five; |