X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fdot_ssh.t;h=47a178ba7f50a086a5a826cf20984eb0a431a3ff;hb=896fd92e62d10082b7bf3c46b8bf46f525f2632f;hp=6e4b017d80c29b2c70812a2626ce1752557ca9ab;hpb=ee76f136d5df9fd89027569fb8a9c713112fab13;p=scpubgit%2FDKit.git diff --git a/t/dot_ssh.t b/t/dot_ssh.t index 6e4b017..47a178b 100644 --- a/t/dot_ssh.t +++ b/t/dot_ssh.t @@ -55,7 +55,7 @@ $solver->add_rule(@$_) for ( [ path_status => [ qw(PS) ], [ member_of => 'PS', [ value => 'path_status' ] ] ], [ path => [ qw(PS P) ], - [ constrain => [ qw(PS P) ], sub { $_[0]->path eq $_[1] } ] ], + [ prop => 'PS', [ value => 'path' ], 'P' ] ], [ mode => [ qw(PS M) ], [ constrain => [ qw(PS M) ], sub { $_[0]->info and $_[0]->info->mode eq $_[1] } ] ],