Add back default .perl.

rakudo · Feb 25, 2010 · 5d38786 · 5d38786
1 parent 59c65be
commit 5d38786
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/core/Mu.pm b/src/core/Mu.pm
@@ -3,6 +3,10 @@ augment class Mu {
 
     multi method notdef() { !self.defined; }
 
+    multi method perl {
+        self.WHAT.substr(0, -2) ~ '.new()';
+    }
+
     method Capture() {
         my %attrs;
         my @mro = self, self.^parents;