edge case in which there is files cache but not usage

diff --git a/lib/CloudStore/API.pm b/lib/CloudStore/API.pm
index d68cd1e..03a781c 100644 (file)
--- a/lib/CloudStore/API.pm
+++ b/lib/CloudStore/API.pm
@@ -334,7 +334,7 @@ sub list_files {
 
        my $files = $user->{dir} . '/.meta/files';
        $self->mkbasepath( $files, { uid => $user->{uid} } );
-       if ( -e $files && -s $files > 0) {
+       if ( -e $files && -s $files > 0 && -e "$files.usage") {
                local $/ = undef;
                open(my $fh, '<', $files);
                my $list = <$fh>;