Fix deparsing of Regex::InternalModifier::xxx

- Regex::InternalModifier::IgnoreCase - Regex::InternalModifier::IgnoreMark - Regex::InternalModifier::Ratchet - Regex::InternalModifier::Sigspace The space is not necessary: spacing is handled by Regex::Sequence
rakudo · Jan 17, 2023 · abb4de6 · abb4de6
1 parent 0f21ff2
commit abb4de6
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/core.c/RakuAST/Deparse.pm6 b/src/core.c/RakuAST/Deparse.pm6
@@ -1050,25 +1050,25 @@ class RakuAST::Deparse {
 
     multi method deparse(
       RakuAST::Regex::InternalModifier::IgnoreCase:D $ast --> Str:D) {
-        $ast.negated ?? ':!i ' !! ':i '
+        $ast.negated ?? ':!i' !! ':i'
     }
 
     multi method deparse(
       RakuAST::Regex::InternalModifier::IgnoreMark:D $ast
     --> Str:D) {
-        $ast.negated ?? ':!m ' !! ':m '
+        $ast.negated ?? ':!m' !! ':m'
     }
 
     multi method deparse(
       RakuAST::Regex::InternalModifier::Ratchet:D $ast
     --> Str:D) {
-        $ast.negated ?? ':!r ' !! ':r '
+        $ast.negated ?? ':!r' !! ':r'
     }
 
     multi method deparse(
       RakuAST::Regex::InternalModifier::Sigspace:D $ast
     --> Str:D) {
-        $ast.negated ?? ':!s ' !! ':s '
+        $ast.negated ?? ':!s' !! ':s'
     }
 
     multi method deparse(RakuAST::Regex::Interpolation:D $ast --> Str:D) {