Changeset 9038

Timestamp:

2005-02-15T11:49:14+13:00 (19 years ago)

Author:

kjdon

Message:

when doing hash ids, don't hash on the file if it has zero size

File:

• trunk/gsdl/perllib/doc.pm (modified) (1 diff)

trunk/gsdl/perllib/doc.pm

@@ -685 +685 @@
         my $filename = $self->get_filename_for_hashing();
 
-        if (defined($filename) && -e $filename) {
+        # -z: don't want to hash on the file if it is zero size
+        if (defined($filename) && -e $filename && !-z $filename) {
         $OID = $self->_calc_OID ($filename);
         } else {