From 49e4ca16a9a312cf1d6a02635a60c18d8d8e7a9e Mon Sep 17 00:00:00 2001
From: Alex Jordan <alex.jordan@pcc.edu>
Date: Fri, 11 Apr 2025 15:32:12 -0700
Subject: [PATCH] upgrade degree-1 matrices to degree 2 when doing a comparison

---
 lib/Value/Matrix.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/Value/Matrix.pm b/lib/Value/Matrix.pm
index 5f53bf22f..a8f238a81 100644
--- a/lib/Value/Matrix.pm
+++ b/lib/Value/Matrix.pm
@@ -810,6 +810,8 @@ sub power {
 #  Do lexicographic comparison (row by row)
 sub compare {
 	my ($self, $l, $r) = Value::checkOpOrderWithPromote(@_);
+	$l = $l->transpose if ($l->degree == 1 && $r->degree == 2);
+	$r = $r->transpose if ($l->degree == 2 && $r->degree == 1);
 	Value::Error("Can't compare Matrices with different dimensions")
 		unless join(',', $l->dimensions) eq join(',', $r->dimensions);
 	my @l = @{ $l->data };