fix fake md5sum import objects

diff --git a/lib/CloudStore/Couchbase.pm b/lib/CloudStore/Couchbase.pm
index 30a859b..5a27bfd 100644 (file)
--- a/lib/CloudStore/Couchbase.pm
+++ b/lib/CloudStore/Couchbase.pm
@@ -159,16 +159,18 @@ sub dedup {
                        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;
+                               my $only_dir = $1 if $new =~ m{^(.+)/[^/]+$};
+                               make_path $only_dir unless -d $only_dir;
                                $imported += link "md5/$md5", $new;
-                               $self->new_file({
+                               my $fake = {
                                        login => $data->{login},
                                        host => $data->{host},
                                        file => $dir . $file,
                                        md5 => $md5,
                                        size => -s $new,
-                               });
+                               };
+                               $self->new_file($fake);
+                               warn "fake ",dump($fake);
                        } else {
                                md5pool $new => $md5;
                        }