From e9ff2330e783e2ee693feecbdcddf464d55cdc36 Mon Sep 17 00:00:00 2001
From: andrezgz <andrezgz@gmail.com>
Date: Sat, 1 Jun 2019 00:54:43 -0300
Subject: challenge-010 andrezgz ch-1 minor fix

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

diff --git a/challenge-010/andrezgz/perl5/ch-1.pl b/challenge-010/andrezgz/perl5/ch-1.pl
index 021587e75a..b740d20acb 100644
--- a/challenge-010/andrezgz/perl5/ch-1.pl
+++ b/challenge-010/andrezgz/perl5/ch-1.pl
@@ -31,7 +31,7 @@ my %roman_table = (
 
 my $arg = $ARGV[0];
 
-if ($arg =~ /^\d+$/i) {
+if ($arg =~ /^\d+$/) {
     die "Decimal number should be between 1 and 3999" if ($arg < 1 || $arg > 3999);
     print encode_roman($arg);
 }
-- 
cgit