X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FOp%2FPredicate.pm;h=80a42b6b8006023a9a01fb396d64f0442cb1a672;hb=0676b2822d7fdcab673d3f0c4a85fe9d05af8a76;hp=69711990ce26a6bc96c63e3b7c081b83ea5f2af0;hpb=37e9670dc1bf2c37386b1b84afe94877256b8359;p=scpubgit%2FDKit.git

diff --git a/lib/DX/Op/Predicate.pm b/lib/DX/Op/Predicate.pm
index 6971199..80a42b6 100644
--- a/lib/DX/Op/Predicate.pm
+++ b/lib/DX/Op/Predicate.pm
@@ -20,7 +20,7 @@ sub run {
     foreach my $i (0..$#arg_names) {
       if ($req->[$i] eq '+') {
         next CASE unless $args[$i]->is_bound;
-        $_{$arg_names[$i]} = $args[$i]->bound_value;
+        $_{$arg_names[$i]} = $state->resolve_value($args[$i]);
       } elsif ($req->[$i] eq '-') {
         next CASE if $args[$i]->is_bound;
       }