X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fobserve.t;h=f3594c6d61853d042e096ca820b7aacb21737810;hb=859049a333deff68898650acf61a18c4c6a923db;hp=04432ac55810ffe9c697490f684e4403a8daf67a;hpb=896fd92e62d10082b7bf3c46b8bf46f525f2632f;p=scpubgit%2FDKit.git

diff --git a/t/observe.t b/t/observe.t
index 04432ac..f3594c6 100644
--- a/t/observe.t
+++ b/t/observe.t
@@ -15,7 +15,7 @@ my %paths = %observe_path;
 my $set_dot_ssh = FromCode->new(
   code => sub {
     my ($self, $state) = @_;
-    $state->bind_value($state->scope_var('P'), '/home/me/.ssh')
+    $state->bind_value($state->scope_var('P')->id, '/home/me/.ssh')
           ->then($self->next);
   }
 );
@@ -24,7 +24,7 @@ my $path_status = FromCode->new(
   code => sub {
     my ($self, $state) = @_;
     if (my $p = $paths{$state->scope_var('P')->bound_value}) {
-      return $state->bind_value($state->scope_var('PS'), $p)
+      return $state->bind_value($state->scope_var('PS')->id, $p)
                    ->then($self->next);
     }
     return $state->backtrack;