Make \n resolve to $?NL.

This means it produces \r\n on Windows, \n elsewhere, and can be controlled using the `use newline` pragma.
rakudo · Nov 5, 2015 · 4f276be · 4f276be · nanis · Dec 13, 2015
1 parent 772cb2a
commit 4f276be
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -8441,7 +8441,7 @@ class Perl6::QActions is HLL::Actions does STDActions {
     method backslash:sym<c>($/) { make $<charspec>.ast }
     method backslash:sym<e>($/) { make "\c[27]" }
     method backslash:sym<f>($/) { make "\c[12]" }
-    method backslash:sym<n>($/) { make "\n" }
+    method backslash:sym<n>($/) { make nqp::unbox_s($*W.find_symbol(['$?NL'])); }
     method backslash:sym<o>($/) { make self.ints_to_string( $<octint> ?? $<octint> !! $<octints><octint> ) }
     method backslash:sym<r>($/) { make "\r" }
     method backslash:sym<rn>($/) { make "\r\n" }