[Bps-public-commit] r16635 - sd/trunk/lib/App/SD/Replica

[ruz at bestpractical.com]

Author: ruz
Date: Thu Oct 30 20:02:58 2008
New Revision: 16635

Modified:
   sd/trunk/lib/App/SD/Replica/hm.pm

Log:
* check results of an action

Modified: sd/trunk/lib/App/SD/Replica/hm.pm
==============================================================================
--- sd/trunk/lib/App/SD/Replica/hm.pm	(original)
+++ sd/trunk/lib/App/SD/Replica/hm.pm	Thu Oct 30 20:02:58 2008
@@ -100,8 +100,11 @@
     if ( my $props = $self->props ) {
         while ( my ($k, $v) = each %$props ) { $args{$k} = $v }
     }
-    my $tasks = $self->hm->act( 'TaskSearch', %args )->{content}->{tasks};
-    return $tasks;
+    my $status = $self->hm->act( 'TaskSearch', %args );
+    unless ( $status->{'success'} ) {
+        die "couldn't search";
+    }
+    return $status->{content}{tasks};
 }
 
 sub record_pushed_transactions {