use autodie;
use CloudStore::JSON;
+use File::Path qw(make_path);
use Data::Dump qw(dump);
sub path_md5 {
}
my $new = "users/$data->{login}/blob/$dir$file";
if ( ! -e $new ) {
+ # create path from md5sum file
+ my $dir = $1 if $new =~ m{^(.+)/[^/]+$};
+ make_path $dir unless -d $dir;
$imported += link "md5/$md5", $new;
} else {
path_md5 $new => $md5;