make dir prefix before .sync/(send|pending) optional (ie. work in root dir)

diff --git a/lib/CloudStore/Store.pm b/lib/CloudStore/Store.pm
index 6284499..aeeb9d5 100644 (file)
--- a/lib/CloudStore/Store.pm
+++ b/lib/CloudStore/Store.pm
@@ -44,7 +44,7 @@ sub mkbasedir {
 sub modify_file {
        my ( $self,$data ) = @_;
 
-       if ( $data->{file} =~ m{^(.*/).sync/send/([^/]+)$} ) {
+       if ( $data->{file} =~ m{^(.*/)?.sync/send/([^/]+)$} ) {
                my $from_dir = $1;
                warn "SEND $2 from $from_dir\n";
                my $sent_files;
@@ -79,7 +79,7 @@ sub modify_file {
                warn "SENT ",dump $sent_files;
 
                return 0; # skip dedup
-       } elsif ( $data->{file} =~ m{^(.*/).sync/pending/([^/]+)$} ) {
+       } elsif ( $data->{file} =~ m{^(.*/)?.sync/pending/([^/]+)$} ) {
                my $from_dir = $1;
                warn "PENDIG $2 from $from_dir";
                open(my $pend, '<', $self->blob_path($data) );