Fix factoid var expansion such that 0 can now be yielded

This commit is contained in:
Pragmatic Software 2017-09-02 00:27:01 -07:00
parent 5ee07e08d2
commit 793303fcde
1 changed files with 1 additions and 1 deletions

View File

@ -418,7 +418,7 @@ sub expand_factoid_vars {
my @list = split(/\s|(".*?")/, $change);
my @mylist;
for (my $i = 0; $i <= $#list; $i++) {
push @mylist, $list[$i] if $list[$i];
push @mylist, $list[$i] if defined $list[$i];
}
my $line = int(rand($#mylist + 1));
$mylist[$line] =~ s/"//g;