Upgrade to ExtUtils::MakeMaker 6.28

[p5sagit/p5-mst-13.2.git] / lib / Memoize / t / expire.t

diff --git a/lib/Memoize/t/expire.t b/lib/Memoize/t/expire.t
index 28cf559..497e7a9 100644 (file)
--- a/lib/Memoize/t/expire.t
+++ b/lib/Memoize/t/expire.t
@@ -17,7 +17,9 @@ sub id {
   $arg;
 }
 
-memoize 'id', SCALAR_CACHE => ['TIE', 'Memoize::ExpireTest'], 
+tie my %cache => 'Memoize::ExpireTest';
+memoize 'id', 
+  SCALAR_CACHE => [HASH => \%cache], 
   LIST_CACHE => 'FAULT';
 $n++; print "ok $n\n";