Index: /trunk/Nebulous/lib/Nebulous/Client.pm
===================================================================
--- /trunk/Nebulous/lib/Nebulous/Client.pm	(revision 2913)
+++ /trunk/Nebulous/lib/Nebulous/Client.pm	(revision 2914)
@@ -1,5 +1,5 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Client.pm,v 1.11 2005-01-05 20:25:44 jhoblitt Exp $
+# $Id: Client.pm,v 1.12 2005-01-05 22:31:45 jhoblitt Exp $
 
 package PS::IPP::IData::Client;
@@ -515,7 +515,9 @@
 
     my $locations = $self->find_instances( $key );
+
+    return undef unless $locations;
         
     foreach my $uri ( @$locations ) {
-        $self->delete_instance( $uri );
+        $self->delete_instance( $uri ) or return undef;
     }
 
@@ -667,5 +669,6 @@
     my $response = $self->{ 'server' }->stat_object( $key );
     if ( $response->fault ) {
-        $log->error( $response->faultcode, " - ", $response->faultstring );
+        $self->set_err( $response->faultcode, " - ", $response->faultstring );
+        $log->error( $self->err );
         $log->debug( "leaving" );
 
@@ -682,4 +685,20 @@
 }
 
+sub err {
+    my $self = shift;
+
+    die "accepts no params" if @_;
+
+    return $self->{ 'err' };
+}
+
+sub set_err {
+    my $self = shift;
+
+    $self->{ 'err' } = shift;
+
+    return $self;
+}
+
 1;