From f56f5718190175a80081bde5966a92ec27f649ee Mon Sep 17 00:00:00 2001
From: user-person <60802990+user-person@users.noreply.github.com>
Date: Sun, 16 Feb 2020 04:40:27 -0500
Subject: Update ch-1.pl

---
 challenge-047/user-person/perl/ch-1.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/challenge-047/user-person/perl/ch-1.pl b/challenge-047/user-person/perl/ch-1.pl
index 6dc09d1bfb..ec2e27b494 100644
--- a/challenge-047/user-person/perl/ch-1.pl
+++ b/challenge-047/user-person/perl/ch-1.pl
@@ -43,7 +43,9 @@ print STDERR "Calculation result had a decimal $decimal that was truncated.\n" i
 if ( $result == 0) {
     print "N (no formal zero)\n"; # https://en.wikipedia.org/wiki/Roman_numerals#Zero
 } elsif ($result > 3_999) {
-    die "Calculation result $result , exceeds MMMCMXCIX (3,999) the maximum value of the Roman number format.\n";
+    die "Calculation result $result exceeds MMMCMXCIX (3,999) the maximum value of the Roman number format.\n";
+} elsif ($result < 0) {
+    die "Calculation result $result is negative. Roman numbers are positive integers.\n";
 } else {
     $result = Roman(int $result);
     print "$result\n";
-- 
cgit