From 341f4497ad020d17ac7e5e1a03036f9bc465233d Mon Sep 17 00:00:00 2001
From: unknown <Jonathan@.(none)>
Date: Sat, 18 Apr 2009 13:16:54 +0200
Subject: [PATCH] Need to not pun calls to .WHATon a role (this can go away
 when .WHAT really becomes a macro).

---
 src/classes/ClassHOW.pir | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/classes/ClassHOW.pir b/src/classes/ClassHOW.pir
index db9ea566994..04e6ff41024 100644
--- a/src/classes/ClassHOW.pir
+++ b/src/classes/ClassHOW.pir
@@ -48,10 +48,12 @@ Dispatches to method of the given name on this class or one of its parents.
     .param pmc name_args :slurpy :named
 
     # If it's a call on a role, need to pun it.
+    if name == 'WHAT' goto no_pun
     $I0 = isa obj, 'Perl6Role'
     if $I0 goto pun_role_unselected
     $I0 = isa obj, 'Role'
     if $I0 goto pun_role
+  no_pun:
 
     # Get MRO and an interator on it. Note that we need to handle calls on
     # protos a little specially, since parrotclass on them doesn't hand back