fix perl warning

This commit is contained in:
Jamie Cameron
2014-05-18 17:47:14 -07:00
parent cef7e27ba5
commit bdfd05dca4

View File

@@ -60,7 +60,7 @@ my $i = 0;
foreach my $a (@{$actionlist->{'words'}}, undef) {
my $action;
my %opts;
if ($a =~ /^(\S+)\[(.*)\]$/) {
if ($a && $a =~ /^(\S+)\[(.*)\]$/) {
$action = $1;
%opts = map { split(/=/, $_) } split(/,\s*/, $2);
}