Fix Map.perl representation

rakudo · Oct 30, 2015 · cc9c7c1 · cc9c7c1
1 parent 34c5a7a
commit cc9c7c1
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/core/Map.pm b/src/core/Map.pm
@@ -51,9 +51,9 @@ my class Map does Iterable does Associative { # declared in BOOTSTRAP
 
     multi method perl(Map:D:) {
         self.^name
-          ~ '.new('
-          ~ self.pairs.sort.map({.perl}).join(', ')
-          ~ ')';
+          ~ '.new(('
+          ~ self.pairs.sort.map({.perl}).join(',')
+          ~ '))';
     }
 
     method iterator(Map:) { self.pairs.iterator }