From e4e9cf86f753394d9a51fb71816e412f7a5951ae Mon Sep 17 00:00:00 2001
From: TimToady <larry@wall.org>
Date: Sat, 3 Jan 2015 00:10:10 -0800
Subject: [PATCH 1/2] cmp on lists should distribute to columns

---
 src/core/List.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/core/List.pm b/src/core/List.pm
index 4248097cef4..689b0e7a92f 100644
--- a/src/core/List.pm
+++ b/src/core/List.pm
@@ -702,4 +702,8 @@ sub splice(@arr, $offset = 0, $size?, *@values) {
     @arr.splice($offset, $size, @values)
 }
 
+multi sub infix:<cmp>(@a, @b) {
+    (@a Zcmp @b).first(*.so) || @a <=> @b || Order::Same;
+}
+
 # vim: ft=perl6 expandtab sw=4

From 167f5f423024fc7d64520d301482b2f990c63099 Mon Sep 17 00:00:00 2001
From: TimToady <larry@wall.org>
Date: Sat, 3 Jan 2015 00:19:08 -0800
Subject: [PATCH 2/2] oops, <=> can already return Same

---
 src/core/List.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/core/List.pm b/src/core/List.pm
index 689b0e7a92f..3640e1551d2 100644
--- a/src/core/List.pm
+++ b/src/core/List.pm
@@ -702,8 +702,6 @@ sub splice(@arr, $offset = 0, $size?, *@values) {
     @arr.splice($offset, $size, @values)
 }
 
-multi sub infix:<cmp>(@a, @b) {
-    (@a Zcmp @b).first(*.so) || @a <=> @b || Order::Same;
-}
+multi sub infix:<cmp>(@a, @b) { (@a Zcmp @b).first(&prefix:<?>) || @a <=> @b }
 
 # vim: ft=perl6 expandtab sw=4