I implemented catdir. Use catdir FFS.

diff --git a/lib/DX/Lib/FS.pm b/lib/DX/Lib/FS.pm
index 0e2b51b..cc9456e 100644 (file)
--- 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' ] ],