From b0a74fd780540a28a1c07da83711eda4dfde7f01 Mon Sep 17 00:00:00 2001
From: andrezgz <andrezgz@gmail.com>
Date: Mon, 23 Dec 2019 00:54:11 -0300
Subject: challenge-038 andrezgz ch-1 regex fix

---
 challenge-038/andrezgz/perl5/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-038/andrezgz/perl5/ch-1.pl b/challenge-038/andrezgz/perl5/ch-1.pl
index 0a0a55468e..c95f791a90 100644
--- a/challenge-038/andrezgz/perl5/ch-1.pl
+++ b/challenge-038/andrezgz/perl5/ch-1.pl
@@ -26,7 +26,7 @@ my $n = shift || die "USAGE $0 <7-digit-date>";
 
 die 'invalid 7-digits date'.$/
     if $n !~ /^
-                (?<y1>[1,2])                    # 1st: 1 or 2
+                (?<y1>[12])                     # 1st: 1 or 2
                 (?<y2>\d{2})                    # 2nd & 3rd: anything
                 (?<m>0[1-9]|1[0-2])             # 4th & 5th: month
                 (?<d>0[1-9]|[12][0-9]|3[01])    # 6th & 7th: day of the month
-- 
cgit