Fix .clone on multis.

rakudo · Feb 25, 2010 · 2ab6b38 · 2ab6b38
1 parent 6373c3b
commit 2ab6b38
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/src/pmc/perl6multisub.pmc b/src/pmc/perl6multisub.pmc
@@ -1162,6 +1162,21 @@ Makes a copy of this Perl6MultiSub PMC.
         return copy;
     }
 
+
+/*
+
+=item METHOD PMC * clone()
+
+Makes a copy of this Perl6MultiSub PMC.
+
+=cut
+
+*/
+    METHOD PMC * clone() {
+        PMC *copy = VTABLE_clone(interp, SELF);
+        RETURN (PMC *copy);
+    }
+
 /*
 
 =item VTABLE STRING * get_string()