Show non-printables in IO::Path.perl

Related to #126935
rakudo · Dec 17, 2015 · 2735116 · 2735116
1 parent af74f04
commit 2735116
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/core/IO/Path.pm b/src/core/IO/Path.pm
@@ -77,13 +77,12 @@ my class IO::Path is Cool {
     }
     multi method perl(IO::Path:D:) {
         my $path = Rakudo::Internals.TRANSPOSE(
-          Rakudo::Internals.TRANSPOSE( ($.is-absolute ?? $.abspath !! $.path),
-            "\\", "\\\\"),
+          Rakudo::Internals.PERLIFY-STR($.is-absolute ?? $.abspath !! $.path),
           "|", "\\|");
 
         $!is-absolute  # attribute now set
-          ?? "q|{$path}|.IO(:SPEC({$!SPEC.perl}))"
-          !! "q|{$path}|.IO(:SPEC({$!SPEC.perl}),:CWD({$!CWD.perl}))"
+          ?? "q|$path|.IO(:SPEC({$!SPEC.perl}))"
+          !! "q|$path|.IO(:SPEC({$!SPEC.perl}),:CWD({$!CWD.perl}))"
     }
 
     method succ(IO::Path:D:) {