Fix .clone to deref ObjectRefs properly by calling !DEREF, which foll…

…ows chains. Resolves RT#62828.
rakudo · Feb 11, 2009 · 59024e0 · 59024e0
1 parent d668ca9
commit 59024e0
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/src/classes/Object.pir b/src/classes/Object.pir
@@ -45,10 +45,7 @@ like this.
 
     # Make a clone.
     .local pmc result
-    $I0 = isa self, 'ObjectRef'
-    unless $I0 goto do_clone
-    self = deref self
-  do_clone:
+    self = '!DEREF'(self)
     result = clone self
 
     # Set any new attributes.