projects
/
cloudstore.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
6cd89e3
)
call XS code directly
author
Dobrica Pavlinusic
<dpavlin@rsync1.maxxo.com>
Fri, 18 May 2012 12:48:39 +0000
(14:48 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rsync1.maxxo.com>
Fri, 18 May 2012 12:48:39 +0000
(14:48 +0200)
lib/CloudStore/MD5sum.pm
patch
|
blob
|
history
diff --git
a/lib/CloudStore/MD5sum.pm
b/lib/CloudStore/MD5sum.pm
index
f0e08f3
..
4faf616
100644
(file)
--- a/
lib/CloudStore/MD5sum.pm
+++ b/
lib/CloudStore/MD5sum.pm
@@
-4,18
+4,18
@@
use strict;
use Carp qw(confess carp);
use Data::Dump qw(dump);
-use File::ExtAttr
':all'
;
+use File::ExtAttr;
sub md5_get {
my ( $self, $path ) = @_;
- my $md5 = getfattr( $path, 'md5' );
+ my $md5 =
File::ExtAttr::_
getfattr( $path, 'md5' );
warn "## md5_get $path $md5\n";
return $md5;
}
sub md5_set {
my ( $self, $path, $md5 ) = @_;
- setfattr( $path, md5 => $md5 );
+
File::ExtAttr::_
setfattr( $path, md5 => $md5 );
warn "## md5_set $path $md5\n";
return $md5;
}