Make proto-objects respond more correct to WHICH, which fixes === on …

…proto-objects and thus resolves RT#62902.
rakudo · Feb 25, 2009 · d912db6 · d912db6
1 parent 7f8ba6f
commit d912db6
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/src/classes/Protoobject.pir b/src/classes/Protoobject.pir
@@ -48,6 +48,20 @@ Returns the protoobject's autovivification closure.
     .return (whence)
 .end
 
+
+=item WHICH()
+
+Returns a comparable identifier for the proto-object.
+
+=cut
+
+.sub 'WHICH' :method
+    $P0 = self.'HOW'()
+    $I0 = get_addr $P0
+    .return ($I0)
+.end
+
+
 =back
 
 =head2 Functions