From 735a428d4e1f61498f277c8c5b0f5d01130e3df8 Mon Sep 17 00:00:00 2001
From: Luis Mochan <mochan@fis.unam.mx>
Date: Tue, 15 Jun 2021 19:27:23 -0500
Subject: Correct mistake

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

diff --git a/challenge-117/wlmb/perl/ch-1.pl b/challenge-117/wlmb/perl/ch-1.pl
index 17869acc85..35bb4e1edf 100755
--- a/challenge-117/wlmb/perl/ch-1.pl
+++ b/challenge-117/wlmb/perl/ch-1.pl
@@ -17,5 +17,5 @@ while(<>){
     die "Wrong number: $_" unless defined $rows{$1};
     delete $rows{$1};
 }
-die "Not 14 lines" unless $count=14;
+die "Not 14 lines" unless $count==14;
 say "Missing row: $_, $rows{$_}" for keys %rows;
-- 
cgit