From e4f2747db8e5745a2692d7f97d2fc0af27460e1f Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Tue, 11 Oct 2011 16:52:31 +0200 Subject: [PATCH] make dir prefix before .sync/(send|pending) optional (ie. work in root dir) --- lib/CloudStore/Store.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/CloudStore/Store.pm b/lib/CloudStore/Store.pm index 6284499..aeeb9d5 100644 --- 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) ); -- 2.20.1