From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 10 Sep 2024 21:18:20 +0000 (+0200)
Subject: browser: replace remaining smart-match operator
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/b7b4af999eaebd5c3072957e1d09dcbb21ce057e

browser: replace remaining smart-match operator

Equivalent without perl warning since v1.19-30-gee5b8a7f10 (2024-09-02)
[replace smartmatch by equivalent syntax].
---

diff --git a/browser.plp b/browser.plp
index fe96312..a100bcb 100644
--- a/browser.plp
+++ b/browser.plp
@@ -390,7 +390,7 @@ sub saybrowsercols {
 			// $prev                     # inherit from predecessor
 			|| 'u'                       # unsure
 		);
-		if (defined $prev and not $prev ~~ $compare) {
+		if (defined $prev and not (defined $compare and $prev eq $compare)) {
 			# different columns
 			my @vercover = (map { @{$_} } @span);  # accumulated conforming versions
 			for ($ver ? @{$ver} : ()) {