From fecc76070c6c0346948dd7fca7090beecc07a9ca Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Mon, 15 Nov 2010 14:39:32 -0800
Subject: [PATCH] Correct an anonymisation test in stash.t

---
 t/op/stash.t | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/t/op/stash.t b/t/op/stash.t
index fb74449..81d6d54 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;
-- 
2.7.4