From 7c5d71cce3654d8cb06aec8be0f1753592b538fb Mon Sep 17 00:00:00 2001 From: Andinus Date: Sun, 14 Jun 2020 18:42:50 +0530 Subject: Print error when no rows to print --- ara.pl | 3 +++ 1 file changed, 3 insertions(+) diff --git a/ara.pl b/ara.pl index 61f066e..4027c49 100755 --- a/ara.pl +++ b/ara.pl @@ -324,6 +324,9 @@ foreach my $i ( 0 ... scalar @$statewise - 1 ) { $rows_printed++; } +die LOCALCOLOR RED "No rows in table" + unless $rows_printed; + # Generate tables. if ( $state_notes ) { print $notes_table; -- cgit 1.4.1-2-gfad0