From: Matt S Trout <mst@shadowcat.co.uk>
Date: Fri, 14 Feb 2014 09:35:09 +0000 (+0000)
Subject: add cuts to avoid multiple action paths
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FDKit.git;a=commitdiff_plain;h=6d55e4c6f80e28a5523a7d3744162ed83ff828f3

add cuts to avoid multiple action paths
---

diff --git a/lib/DX/Lib/FS.pm b/lib/DX/Lib/FS.pm
index 2fb204c..be78481 100644
--- a/lib/DX/Lib/FS.pm
+++ b/lib/DX/Lib/FS.pm
@@ -81,14 +81,16 @@ our @RULES = (
       [ does => 'A', \'DX::Lib::FS::Action::CreateDirectory' ],
       [ react => [ qw(PS M) ], sub {
           $_[0]->but(mode => $_[1]);
-        } ] ] ],
+        } ] ],
+      [ 'cut' ] ],
   [ mode => [ qw(PS M) ],
     [ exists => [ qw(A) ],
       [ has_action => qw(PS A) ],
       [ does => 'A', \'DX::Lib::FS::Action::CreateFile' ],
       [ react => [ qw(PS M) ], sub {
           $_[0]->but(mode => $_[1]);
-        } ] ] ],
+        } ] ],
+      [ 'cut' ] ],
   [ mode => [ qw(PS M) ],
     [ exists_path => qw(PS) ],
     [ not => [ info_prop => 'PS', \'mode', 'M' ] ],