From 6261303061c7ef050cb53a9deb41b9abc266a407 Mon Sep 17 00:00:00 2001
From: Steve McIntyre <steve@einval.com>
Date: Sat, 5 Aug 2017 16:27:41 +0100
Subject: [PATCH] Add SHA256 in the Packages files too

---
 tools/my-dpkg-scanpackages | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/tools/my-dpkg-scanpackages b/tools/my-dpkg-scanpackages
index aaf9c07d..7b8f4818 100755
--- a/tools/my-dpkg-scanpackages
+++ b/tools/my-dpkg-scanpackages
@@ -24,6 +24,7 @@ $version="1.9.17"; # diverted from dpkg 1.9.17
             'Filename',
             'Size',
             'MD5sum',
+            'SHA256',
             'Description');
 
 $written=0;
@@ -132,6 +133,12 @@ while (<F>) {
     s/\ .*$//;
     $tv{'MD5sum'}= $_;
 
+    open(C,"sha256sum $fn |") || die "$fn $!";
+    chop($_=<C>); close(C); $? and die "\`sha256sum < $fn' exited with $?\n";
+    /^[0-9a-f]{32}/ or die "Strange text from \`sha256sum < $fn': \`$_'\n";
+    s/\ .*$//;
+    $tv{'SHA256'}= $_;
+
     @stat= stat($fn) or die "Couldn't stat $fn: $!\n";
     $stat[7] or die "$fn is empty\n";
     $tv{'Size'}= $stat[7];