Enhance friday.txt file parser, add some quotes to friday.txt

2020-11-22 17:46:23 +03:00
parent 63304d6bb9
commit 1031fe9242
2 changed files with 44 additions and 2 deletions
--- a/lib/friday.pm
+++ b/lib/friday.pm
@@ -51,8 +51,9 @@ sub seed () {
 		my @daylist = split(//, $days);

 		foreach my $day (@daylist) {
+			next unless (defined $day);
 			next unless ($day =~ /^\d$/);
-			push @{$friday->[$day - 1]}, $phrase;
+			push @{$friday->[$day - 1]}, $phrase if (defined $phrase && ($phrase ne '') && ($phrase !~ m/^\s+$/xmsg));
 		}
 	}