Bugfix: Make generate-command-parser.pl compatible with perl 5.10
This commit is contained in:
parent
4f975aa060
commit
a59090ac2e
|
@ -90,7 +90,7 @@ for my $line (@lines) {
|
|||
next_state => $action,
|
||||
};
|
||||
if (exists $states{$current_state}) {
|
||||
push $states{$current_state}, $store_token;
|
||||
push @{$states{$current_state}}, $store_token;
|
||||
} else {
|
||||
$states{$current_state} = [ $store_token ];
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue