directories don't have md5sum

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

diff --git a/lib/CloudStore/Store.pm b/lib/CloudStore/Store.pm
index 57addea..b4cc2c4 100644 (file)
--- a/lib/CloudStore/Store.pm
+++ b/lib/CloudStore/Store.pm
@@ -56,11 +56,7 @@ sub remove_file {
 #      $self->usage_decr( $data );
 
        my $md5sum = $self->md5sum($data);
-       if ( ! exists $md5sum->{ $data->{file} } ) {
-               warn "ERROR: no md5 for ",dump $data;
-               return;
-       }
-       my $md5 = $md5sum->{ $data->{file} };
+       my $md5 = $md5sum->{ $data->{file} } || return; # directories don't have md5sums
        my $path = $self->{md5pool} . '/' . $md5;
        my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
                $atime,$mtime,$ctime,$blksize,$blocks)