Give a warning for every bad character in the message

briandfoy · Sep 8, 2023 · 8121da0 · 8121da0
1 parent a6cd2b4
commit 8121da0
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/bin/banner b/bin/banner
@@ -67,13 +67,16 @@ else {
 }
 
 # check message
+my $char_error;
 while ($message =~ /(.)/g) {
   unless ($ascii_to_table{$1}) {
     warn "$Program: The character `$1' is not in my character set\n";
-    exit EX_FAILURE;
+    $char_error++;
   }
 }
 
+exit EX_FAILURE if $char_error;
+
 # print banner
 while ($message =~ /(.)/g) {
   my @line = (' ') x DWIDTH;