From ba654d8d013eeaaee9cb1b77a1413db9f3617cd2 Mon Sep 17 00:00:00 2001
From: TimToady <larry@wall.org>
Date: Sat, 9 May 2015 09:36:25 -0700
Subject: [PATCH] EnumMap.perl should sort, not shuffle

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

diff --git a/src/core/EnumMap.pm b/src/core/EnumMap.pm
index aa5fb6bf53b..2ebfb36abc7 100644
--- a/src/core/EnumMap.pm
+++ b/src/core/EnumMap.pm
@@ -49,7 +49,7 @@ my class EnumMap does Associative { # declared in BOOTSTRAP
     multi method perl(EnumMap:D:) {
         self.^name
           ~ '.new('
-          ~ self.pairs.pick(*,:eager).map({.perl}).join(', ')
+          ~ self.pairs.sort.map({.perl}).join(', ')
           ~ ')';
     }