report errors in send_file

diff --git a/lib/CloudStore/API.pm b/lib/CloudStore/API.pm
index 39a27cd..c290794 100644 (file)
--- a/lib/CloudStore/API.pm
+++ b/lib/CloudStore/API.pm
@@ -227,6 +227,8 @@ sub send_file {
                $self->append( $t, 'recv', $size, $f->{uid}, $t_path );
                $self->append_meta('md5sum', $t, $md5 => $t_path ) if $md5; # md5sum for received files! FIXME -- cross-slice md5
                $self->refresh_file_list( $t );
+       } else {
+               warn "ERROR: send_file $f_full -> $t_full: $!";
        }
 
        return $size;