attr should support filenames with spaces

diff --git a/lib/CloudStore/MD5sum.pm b/lib/CloudStore/MD5sum.pm
index c849e63..6d701cc 100644 (file)
--- 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;
 }