Merge pull request #5020 from rakudo/lizmat-v-check

Don't blindly make a Version object for vN
rakudo · Aug 16, 2022 · 6c948e0 · 6c948e0
2 parents 2c1e1bf + 7ddb90c
commit 6c948e0
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -732,7 +732,10 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
     }
 
     token version {
-        <?before v\d+\w*> 'v' $<vstr>=[<vnum>+ % '.' '+'?]
+        <?before v\d+\w*
+            [ '.' \d
+              || <!{ $*W.is_lexical(~$/) }> ]>
+        'v' $<vstr>=[<vnum>+ % '.' '+'?]
         <!before '-'|\'> # cheat because of LTM fail
     }