fix regex goof: "-" at end of char class or it makes a range

ikluft · Aug 30, 2023 · 35cb892 · 35cb892
1 parent 7fb695e
commit 35cb892
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/perl/prefvote/lib/PrefVote/Core/Input/CEF_Parser.pm b/src/perl/prefvote/lib/PrefVote/Core/Input/CEF_Parser.pm
@@ -515,7 +515,7 @@ sub _Parse {
         [ '='           => qr([=])x, ],
         [ '>'           => qr([>])x, ],
         [ INT           => qr(\d+)x, ],
-        [ WORD          => qr([\w!$%&+-.:;@]+)x, ],
+        [ WORD          => qr([\w!$%&+.:;@-]+)x, ],
     );
 
 

diff --git a/src/perl/prefvote/lib/PrefVote/Core/Input/CEF_Parser.yp b/src/perl/prefvote/lib/PrefVote/Core/Input/CEF_Parser.yp
@@ -16,7 +16,7 @@
         [ '='           => qr([=])x, ],
         [ '>'           => qr([>])x, ],
         [ INT           => qr(\d+)x, ],
-        [ WORD          => qr([\w!$%&+-.:;@]+)x, ],
+        [ WORD          => qr([\w!$%&+.:;@-]+)x, ],
     );
 %}