call XS code directly

[cloudstore.git] / lib / CloudStore / MD5sum.pm

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