Bugfix: Make generate-command-parser.pl compatible with perl 5.10

diff --git a/generate-command-parser.pl b/generate-command-parser.pl
index 9220b30e8f722798c3f3b5eff6201b98010d04a3..175d7101592839e379b546845f347cd3df70187d 100755 (executable)
--- a/generate-command-parser.pl
+++ b/generate-command-parser.pl
@@ -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 ];
             }