die on inter-slice send

diff --git a/lib/CloudStore/API.pm b/lib/CloudStore/API.pm
index 689c8ba..993fa30 100644 (file)
--- a/lib/CloudStore/API.pm
+++ b/lib/CloudStore/API.pm
@@ -152,6 +152,7 @@ sub send_file {
        my ( $self, $f_uid,$f_path, $t_uid,$t_path ) = @_;
 
        my $f = $self->user_info($f_uid);
+       die "FIXME not on current slice" if $f->{dir} !~ m/^$self->{SLICE}/;
        my $t = $self->user_info($t_uid);
 
        my $f_full = "$f->{dir}/$f_path";