From a59090ac2e034f73ad24f4356b886698e7f8bd30 Mon Sep 17 00:00:00 2001 From: Michael Stapelberg Date: Mon, 16 Jan 2012 21:20:48 +0000 Subject: [PATCH] Bugfix: Make generate-command-parser.pl compatible with perl 5.10 --- generate-command-parser.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/generate-command-parser.pl b/generate-command-parser.pl index 9220b30e..175d7101 100755 --- 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 ]; } -- 2.39.2