Hopefully create a smaller / faster .perl

rakudo · Jul 8, 2013 · 2329a2c · 2329a2c
1 parent 8bd124f
commit 2329a2c
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/src/core/Hash.pm b/src/core/Hash.pm
@@ -190,7 +190,9 @@ my class Hash {
                 bindval)
         }
         multi method perl(::?CLASS:D \SELF:) {
-            "Hash[{TValue.perl}].new("
+            'Hash['
+              ~ TValue.perl
+              ~ '].new('
               ~ self.pairs.map({.perl}).join(', ')
               ~ ')';
         }
@@ -268,7 +270,11 @@ my class Hash {
             }
         }
         multi method perl(::?CLASS:D \SELF:) {
-            "Hash[{TValue.perl},{TKey.perl}].new("
+            'Hash['
+              ~ TValue.perl
+              ~ ','
+              ~ TKey.perl
+              ~ '].new('
               ~ self.pairs.map({.perl}).join(', ')
               ~ ')';
         }