Changeset 16411

Timestamp:

Feb 12, 2008, 1:59:38 PM (18 years ago)

Author:

bills

Message:

fix bugs in md5sum and size check

File:

• trunk/DataStore/lib/DataStore/File.pm (modified) (3 diffs)

trunk/DataStore/lib/DataStore/File.pm

@@ -1 +1 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: File.pm,v 1.15 2007-10-09 23:21:22 jhoblitt Exp $
+# $Id: File.pm,v 1.16 2008-02-12 23:59:38 bills Exp $
 
 package DataStore::File;
@@ -236 +236 @@
         if (defined $self->bytes) {
             my $size = stat($filename)->size;
-            if (! $self->bytes == $size) {
+            if (! ($self->bytes == $size)) {
                 unlink $filename;
                 carp "uri: ", $self->uri,
@@ -249 +249 @@
         if (defined $self->md5sum) {
             my $md5 = file_md5_hex($filename);
-            if (! $self->md5sum eq $md5) {
+            if (! ($self->md5sum eq $md5)) {
                 unlink $filename;
                 carp "uri: ", $self->uri,