From c13d1b48e739ef463e19cbf38a86a9de91caa570 Mon Sep 17 00:00:00 2001
From: TimToady <larry@wall.org>
Date: Fri, 20 Mar 2015 15:47:40 -0700
Subject: [PATCH] Mu's .perl should use raw primitives

---
 src/core/Mu.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/core/Mu.pm b/src/core/Mu.pm
index 292bd56967b..c53901d6d81 100644
--- a/src/core/Mu.pm
+++ b/src/core/Mu.pm
@@ -311,7 +311,7 @@ my class Mu { # declared in BOOTSTRAP
             my $name := substr($attr.Str,2);
             @attrs.push: $name
                         ~ ' => '
-                        ~ self."$name"().perl
+                        ~ $attr.get_value(self).perl
         }
         self.^name ~ '.new(' ~  @attrs.join(', ') ~ ')';
     }