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;
}