diff options
| author | andrezgz <andrezgz@gmail.com> | 2019-06-01 00:54:43 -0300 |
|---|---|---|
| committer | andrezgz <andrezgz@gmail.com> | 2019-06-01 00:54:43 -0300 |
| commit | e9ff2330e783e2ee693feecbdcddf464d55cdc36 (patch) | |
| tree | 1211e02675be06269a1614abc07e5898dca275f1 | |
| parent | c23637bca17d7e75f85fd8b516af88a4f5e7ae21 (diff) | |
| download | perlweeklychallenge-club-e9ff2330e783e2ee693feecbdcddf464d55cdc36.tar.gz perlweeklychallenge-club-e9ff2330e783e2ee693feecbdcddf464d55cdc36.tar.bz2 perlweeklychallenge-club-e9ff2330e783e2ee693feecbdcddf464d55cdc36.zip | |
challenge-010 andrezgz ch-1 minor fix
| -rw-r--r-- | challenge-010/andrezgz/perl5/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
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); } |