From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sat, 22 Feb 2014 21:37:31 +0000 (+0000)
Subject: I implemented catdir. Use catdir FFS.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=10ccac75959ac98adbb387c39c4b332cfe512699;p=scpubgit%2FDKit.git

I implemented catdir. Use catdir FFS.
---

diff --git a/lib/DX/Lib/FS.pm b/lib/DX/Lib/FS.pm
index 0e2b51b..cc9456e 100644
--- a/lib/DX/Lib/FS.pm
+++ b/lib/DX/Lib/FS.pm
@@ -189,7 +189,7 @@ our @RULES = (
     [ is_file => 'FilePath' ] ],
 
   [ directory_in => [ qw(DirPath DirName SubdirPath) ],
-    [ catfile => qw(DirPath DirName SubdirPath) ],
+    [ catdir => qw(DirPath DirName SubdirPath) ],
     [ is_directory => 'DirPath' ],
     [ is_directory => 'SubdirPath' ] ],