From 966a7e3a106d5405a78cf61bf7c9de565f1ca646 Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Sat, 8 Apr 2017 14:42:56 +0000
Subject: [PATCH] [io grant] Implement IO::Path.concat-with

- Does what .child used to do
- .child will be changed to throw for non-child paths
---
 src/core/IO/Path.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/core/IO/Path.pm b/src/core/IO/Path.pm
index c7a3e97ab0a..0adb2a56459 100644
--- a/src/core/IO/Path.pm
+++ b/src/core/IO/Path.pm
@@ -329,6 +329,10 @@ my class IO::Path is Cool {
         );
     }
 
+    method concat-with (IO::Path:D: Str() \what) {
+        self.bless: :path($!SPEC.join: '', $!path, what), :$!SPEC, :$!CWD;
+    }
+
     proto method chdir(|) { * }
     multi method chdir(IO::Path:D: Str() $path, :$test!) {
         DEPRECATED(