From c50589c381b34e9c0632d4bf5fce8eb2aec7f31c Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rsync1.maxxo.com>
Date: Thu, 19 Apr 2012 13:53:10 +0200
Subject: [PATCH 1/1] attr should support filenames with spaces

---
 lib/CloudStore/MD5sum.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/CloudStore/MD5sum.pm b/lib/CloudStore/MD5sum.pm
index c849e63..6d701cc 100644
--- a/lib/CloudStore/MD5sum.pm
+++ b/lib/CloudStore/MD5sum.pm
@@ -7,14 +7,14 @@ use Data::Dump qw(dump);
 
 sub md5_get {
 	my ( $self, $path ) = @_;
-	my $md5 = `attr -q -g md5 $path`;
+	my $md5 = `attr -q -g md5 "$path"`;
 	warn "## md5_get $path $md5\n";
 	return $md5;
 }
 
 sub md5_set {
 	my ( $self, $path, $md5 ) = @_;
-	system "attr -q -s md5 -V $md5 $path";
+	system qq|attr -q -s md5 -V $md5 "$path"|;
 	warn "## md5_set $path $md5\n";
 	return $md5;
 }
-- 
2.20.1