Merge branch 'release-4.16.1'

[i3/i3] / generate-command-parser.pl

diff --git a/generate-command-parser.pl b/generate-command-parser.pl
index eeec7dfe786b429e209b8f73736f9174d88deb83..052e4c66338c72076b6e7121eedeec3172d6b63f 100755 (executable)
--- a/generate-command-parser.pl
+++ b/generate-command-parser.pl
@@ -77,7 +77,7 @@ for my $line (@lines) {
             ($line =~ /
                 ^\s*                  # skip leading whitespace
                 ([a-z_]+ \s* = \s*|)  # optional identifier
             ($line =~ /
                 ^\s*                  # skip leading whitespace
                 ([a-z_]+ \s* = \s*|)  # optional identifier

-                (.*?) -> \s*          # token 
+                (.*?) -> \s*          # token

                 (.*)                  # optional action
              /x);
 
                 (.*)                  # optional action
              /x);
 


@@ -224,7 +224,7 @@ for my $state (@keys) {
             $next_state = '__CALL';
         }
         my $identifier = $token->{identifier};
             $next_state = '__CALL';
         }
         my $identifier = $token->{identifier};

-        say $tokfh qq|    { "$token_name", "$identifier", $next_state, { $call_identifier } }, |;
+        say $tokfh qq|    { "$token_name", "$identifier", $next_state, { $call_identifier } },|;

     }
     say $tokfh '};';
 }
     }
     say $tokfh '};';
 }