Fix for #126935

rakudo · Dec 17, 2015 · 8d50dab · 8d50dab
1 parent b422f44
commit 8d50dab
Showing 1 changed file with 8 additions and 4 deletions.
diff --git a/src/core/IO/Path.pm b/src/core/IO/Path.pm
@@ -76,10 +76,14 @@ my class IO::Path is Cool {
         qq|"$.abspath".IO|;
     }
     multi method perl(IO::Path:D:) {
-        ($.is-absolute
-          ?? "q|$.abspath|.IO(:SPEC({$!SPEC.^name}))"
-          !! "q|$.path|.IO(:SPEC({$!SPEC.^name}),:CWD<$!CWD>)"
-        ).subst(:global, '\\', '\\\\');
+        my $path = Rakudo::Internals.TRANSPOSE(
+          Rakudo::Internals.TRANSPOSE( ($.is-absolute ?? $.abspath !! $.path),
+            "\\", "\\\\"),
+          "|", "\\|");
+
+        $!is-absolute  # attribute now set
+          ?? "q|{$path}|.IO(:SPEC({$!SPEC.^name}))"
+          !! "q|{$path}|.IO(:SPEC({$!SPEC.^name}),:CWD<$!CWD>)"
     }
 
     method succ(IO::Path:D:) {