WebSVN – DevTools – Diff – /dpkg_blat/trunk/src/blat/blatS3Sync.pl

+    #
     #   Have a ZIP file of the desired contents
     #   Could try to detect if it differs from the one already in the bucket
     #       Don't want to trigger CI/CD pipeline operations unless we need to
+    #
-    #
+    my $digest;
+    my $md5Digestor = Digest::MD5->new;
+    if (open( my $zipFileHandle, '<', $zipFile )) {
+        binmode ($zipFileHandle);
+        $md5Digestor->addfile($zipFileHandle);
-    my $digest = md5_hex($zipFile);
+        $digest = $md5Digestor->hexdigest();
+    } else {
+        $logger->warn("Cannot open ZIP: $rtag_id, $!");
+        return;
+    }
+    $logger->verbose("Zip MD5: $digest");
     $reason = "";
     if ( !exists $activeReleases->{$rtag_id}{s3} ) {
         $reason = 'NoS3Data';
     } elsif (! exists $activeReleases->{$rtag_id}{md5}) {
         $logger->verbose("Zip file has same md5 hash - upload skipped");
+        #
         #   Update the known signature
         $activeReleases->{$rtag_id}{depsig} = $depsig;
         $activeReleases->{$rtag_id}{seqnum} = $seqnum;
-        $activeReleases->{$rtag_id}{md5} = $digest;
         return;
+    }
     $logger->verbose("ZipMd5 Test: $reason");
     #   Create a command to transfer the file to AWS use the cli tools

Subversion Repositories DevTools