X-Git-Url: http://git.rot13.org/?p=cloudstore.git;a=blobdiff_plain;f=lib%2FCloudStore%2FMD5sum.pm;h=f0e08f37bb4e9c25b8a8f48b198eabb69033ab15;hp=6d701cc101f724637b4ee2085e412cd4c5412d79;hb=7da804f121242b7c131a1d1c19fc6663c3c30cfb;hpb=f12fec56e6678a40a7cb60f9295adeec81079f6c

diff --git a/lib/CloudStore/MD5sum.pm b/lib/CloudStore/MD5sum.pm
index 6d701cc..f0e08f3 100644
--- a/lib/CloudStore/MD5sum.pm
+++ b/lib/CloudStore/MD5sum.pm
@@ -4,17 +4,18 @@ use strict;
 
 use Carp qw(confess carp);
 use Data::Dump qw(dump);
+use File::ExtAttr ':all';
 
 sub md5_get {
 	my ( $self, $path ) = @_;
-	my $md5 = `attr -q -g md5 "$path"`;
+	my $md5 = getfattr( $path, 'md5' );
 	warn "## md5_get $path $md5\n";
 	return $md5;
 }
 
 sub md5_set {
 	my ( $self, $path, $md5 ) = @_;
-	system qq|attr -q -s md5 -V $md5 "$path"|;
+	setfattr( $path, md5 => $md5 );
 	warn "## md5_set $path $md5\n";
 	return $md5;
 }