mostly fix "not" stuff

[scpubgit/DKit.git] / lib / DX / Lib / FS.pm

diff --git a/lib/DX/Lib/FS.pm b/lib/DX/Lib/FS.pm
index 81bc3b7..ece7f62 100644 (file)
--- 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) ],