X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FOp%2FApplyConstraint.pm;h=4d073dbefaa8d123cc2d293e28b24e0159035311;hb=0676b2822d7fdcab673d3f0c4a85fe9d05af8a76;hp=093ede6a00f85c0c3d8aa8fa41f24bc50e1ac36d;hpb=37e9670dc1bf2c37386b1b84afe94877256b8359;p=scpubgit%2FDKit.git

diff --git a/lib/DX/Op/ApplyConstraint.pm b/lib/DX/Op/ApplyConstraint.pm
index 093ede6..4d073db 100644
--- a/lib/DX/Op/ApplyConstraint.pm
+++ b/lib/DX/Op/ApplyConstraint.pm
@@ -16,7 +16,7 @@ has _arg_map => (is => 'lazy', builder => sub {
 sub run {
   my ($self, $state) = @_;
   ($state, my %args) = $self->_expand_args($state, %{$self->_arg_map});
-  my @vars = map $_->bound_value, @args{sort keys %args};
+  my @vars = map $state->resolve_value($_), @args{sort keys %args};
   if ($self->constraint->(@vars)) {
     return $state->then($self->next);
   }