X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FLib%2FFS.pm;fp=lib%2FDX%2FLib%2FFS.pm;h=ece7f6266aa70015e89da9a37f878f28a11cd7c4;hb=6d5315405254a96b847add9e83a642cc9649db69;hp=81bc3b73ec8744c2a4fccbc0d4f881c7b5639be4;hpb=91d1f2390ba5142362b25713fa534cbba335d382;p=scpubgit%2FDKit.git

diff --git a/lib/DX/Lib/FS.pm b/lib/DX/Lib/FS.pm
index 81bc3b7..ece7f62 100644
--- a/lib/DX/Lib/FS.pm
+++ b/lib/DX/Lib/FS.pm
@@ -61,7 +61,7 @@ our @RULES = (
     [ _mode => qw(P M) ] ],
 
   [ is_directory => [ 'Path' ],
-    [ not => [ _is_directory => 'Path' ] ],
+    [ not => [ [ _is_directory => 'Path' ] ] ],
     [ act => [ 'Path' ], sub {
         DX::Lib::FS::Action::CreateDirectory->new(
           path => $_[0],
@@ -70,7 +70,7 @@ our @RULES = (
     [ _is_directory => 'Path' ] ],
 
   [ is_file => [ 'Path' ],
-    [ not => [ _is_file => 'Path' ] ],
+    [ not => [ [ _is_file => 'Path' ] ] ],
     [ act => [ 'Path' ], sub {
         DX::Lib::FS::Action::CreateFile->new(
           path => $_[0],
@@ -95,7 +95,7 @@ our @RULES = (
 
   [ mode => [ qw(P M) ],
     [ path_status_at => qw(PS P) ],
-    [ not => [ _mode => qw(P M) ] ],
+    [ not => [ [ _mode => qw(P M) ] ] ],
     [ act => [ qw(PS M) ], sub {
        DX::Lib::FS::Action::SetPathMode->new(
          path_status => $_[0], mode => $_[1]
@@ -144,7 +144,7 @@ our @RULES = (
     [ does => 'A' => \'DX::Lib::FS::Action::RewriteFile' ] ],
 
   [ contains_line => [ qw(P L) ],
-    [ not => [ _contains_line => qw(P L) ] ],
+    [ not => [ [ _contains_line => qw(P L) ] ] ],
     [ file_content_at => qw(FC P) ],
     [ has_action => qw(FC A) ],
     [ _action_modifying_fc => 'A' ],
@@ -154,7 +154,7 @@ our @RULES = (
     [ 'cut' ] ],
 
   [ contains_line => [ qw(P L) ],
-    [ not => [ _contains_line => qw(P L) ] ],
+    [ not => [ [ _contains_line => qw(P L) ] ] ],
     [ file_content_at => qw(FC P) ],
     [ act => [ qw(FC L) ], sub {
       DX::Lib::FS::Action::RewriteFile->new(
@@ -163,7 +163,7 @@ our @RULES = (
     } ] ],
 
   [ not_contains_line => [ qw(P L) ],
-    [ not => [ _contains_line => qw(P L) ] ] ],
+    [ not => [ [ _contains_line => qw(P L) ] ] ] ],
 
   [ _arrange_removal_of => [ qw(FC L) ],
     [ has_action => qw(FC A) ],