report file_size result in log

diff --git a/lib/CloudStore/API.pm b/lib/CloudStore/API.pm
index a62e2a4..bb7bbc9 100644 (file)
--- a/lib/CloudStore/API.pm
+++ b/lib/CloudStore/API.pm
@@ -320,7 +320,9 @@ sub file_size {
        $user = $self->user_info($user) unless ref $user eq 'HASH';
 
        my $full_path = "$user->{dir}/$path";
-       return -s $full_path;
+       my $size = -s $full_path;
+       warn "# file_size $full_path = $size bytes\n";
+       return $size;
 }
 
 sub list_files {