From add4718a261682ba7e96be799389a1720878fd4e Mon Sep 17 00:00:00 2001
From: Moritz Lenz <moritz@faui2k3.org>
Date: Tue, 2 Aug 2011 20:35:24 +0200
Subject: [PATCH] fix a test I broke earlier, moritz--

---
 S32-list/reduce.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/S32-list/reduce.t b/S32-list/reduce.t
index 239a02a747..0415d6d066 100644
--- a/S32-list/reduce.t
+++ b/S32-list/reduce.t
@@ -44,7 +44,7 @@ plan 13;
   my $hash = {a => {b => {c => 42}}};
   my @reftypes;
   sub foo (Hash $hash, Str $key) {
-    push @reftypes, $hash.WHAT.gist;
+    push @reftypes, $hash.WHAT;
     $hash.{$key};
   }
   is((reduce(&foo, $hash, <a b c>)), 42, 'reduce(&foo) (foo ~~ .{}) works three levels deep');