call mkbasepath for .meta dir

[cloudstore.git] / lib / CloudStore / API.pm

diff --git a/lib/CloudStore/API.pm b/lib/CloudStore/API.pm
index e4c5875..d68cd1e 100644 (file)
--- a/lib/CloudStore/API.pm
+++ b/lib/CloudStore/API.pm
@@ -162,6 +162,7 @@ sub usage {
        $user = $self->user_info($user) unless ref $user eq 'HASH';
 
        my $usage_path = $user->{dir} . '/.meta/files.usage';
+       $self->mkbasepath( $usage_path, { uid => $user->{uid} } );
        if ( ! -e $usage_path ) {
                warn "# usage $usage_path missing";
                $self->list_files($user);
@@ -332,6 +333,7 @@ sub list_files {
        die "no dir for ",dump($user) unless exists $user->{dir};
 
        my $files = $user->{dir} . '/.meta/files';
+       $self->mkbasepath( $files, { uid => $user->{uid} } );
        if ( -e $files && -s $files > 0) {
                local $/ = undef;
                open(my $fh, '<', $files);