RakuAST: fixup regex stringification on synthesised ASTs

We don't always have a source code to access. Fall back to DEPARSE in that case.
rakudo · Jun 4, 2023 · 4a46ee1 · 4a46ee1
1 parent d320dee
commit 4a46ee1
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/Raku/ast/code.rakumod b/src/Raku/ast/code.rakumod
@@ -2007,7 +2007,7 @@ class RakuAST::RegexThunk
         # Create Regex object.
         my $regex := nqp::create(Regex);
         nqp::bindattr($regex, Code, '$!signature', $signature);
-        nqp::bindattr_s($regex, Regex, '$!source', self.origin.Str);
+        nqp::bindattr_s($regex, Regex, '$!source', self.origin ?? self.origin.Str !! self.DEPARSE);
         nqp::bindattr($signature, Signature, '$!code', $regex);
         $regex
     }

diff --git a/src/Raku/ast/statementprefixes.rakumod b/src/Raku/ast/statementprefixes.rakumod
@@ -622,7 +622,7 @@ class RakuAST::StatementPrefix::Phaser::Pre
                       value => RakuAST::StrLiteral.new(
                         $condition
                           ?? nqp::hllizefor($condition, 'Raku')
-                          !! $blorst.origin.Str
+                          !! $blorst.origin ?? $blorst.origin.Str !! $blorst.DEPARSE
                       )
                     )
                   )
@@ -691,7 +691,7 @@ class RakuAST::StatementPrefix::Phaser::Post
                             value => RakuAST::StrLiteral.new(
                               $condition
                                 ?? nqp::hllizefor($condition, 'Raku')
-                                !! $blorst.origin.Str
+                                !! $blorst.origin ?? $blorst.origin.Str !! $blorst.DEPARSE
                             )
                           )
                         )