From 2d7cc7e438cc1c178a2e79a7889180ce1956f5a2 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 5 Dec 2022 16:03:28 +0000
Subject: Misplaced '('

---
 challenge-194/perlboy1967/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'challenge-194')

diff --git a/challenge-194/perlboy1967/perl/ch-1.pl b/challenge-194/perlboy1967/perl/ch-1.pl
index 3e36138700..f39fc1a5c3 100755
--- a/challenge-194/perlboy1967/perl/ch-1.pl
+++ b/challenge-194/perlboy1967/perl/ch-1.pl
@@ -25,7 +25,7 @@ use Test::More;
 sub highestDigit ($) {
   state $c = { 0=>2, 1=>9, 2=>-1, 3=>5, 4=>9 };
 
-  (length($_[0]) == 5 && $_[0] =~ y/?/?/) == 1 ? $c->{index($_[0],'?')} // -1 : -1;
+  length($_[0]) == 5 && ($_[0] =~ y/?/?/) == 1 ? $c->{index($_[0],'?')} // -1 : -1;
 }
 
 
-- 
cgit