create full paths from md5sum files

diff --git a/lib/CloudStore/dedup.pm b/lib/CloudStore/dedup.pm
index 0000ecb..04488cd 100644 (file)
--- a/lib/CloudStore/dedup.pm
+++ b/lib/CloudStore/dedup.pm
@@ -4,6 +4,7 @@ use strict;
 use autodie;
 
 use CloudStore::JSON;
+use File::Path qw(make_path);
 use Data::Dump qw(dump);
 
 sub path_md5 {
@@ -62,6 +63,9 @@ sub data {
                        }
                        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;