Re-instate null-regex semantics in 6.e

If there *is* just whitespace between / and /
rakudo · Aug 22, 2022 · b50a0d0 · b50a0d0
1 parent eb5bf0d
commit b50a0d0
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -3511,8 +3511,11 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
     }
 
     token quote:sym</null/> {
-        <?{ nqp::getcomp('Raku').language_revision lt 'e' }>
-        '/' \s* '/' <.typed_panic: "X::Syntax::Regex::NullRegex">
+        :my $rev := nqp::getcomp('Raku').language_revision;
+          <?{ $rev lt 'e' }>
+          '/' \s* '/' <.typed_panic: "X::Syntax::Regex::NullRegex">
+        | <?{ $rev ge 'e' }>
+          '/' \s+ '/' <.typed_panic: "X::Syntax::Regex::NullRegex">
     }
     token quote:sym</ />  {
         :my %*RX;