From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 92521 invoked by alias); 31 Mar 2015 19:33:20 -0000 Mailing-List: contact cygwin-apps-help@cygwin.com; run by ezmlm Precedence: bulk Sender: cygwin-apps-owner@cygwin.com List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Mail-Followup-To: cygwin-apps@cygwin.com Received: (qmail 92507 invoked by uid 89); 31 Mar 2015 19:33:20 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-1.6 required=5.0 tests=AWL,BAYES_00,RCVD_IN_DNSWL_NONE,SPF_PASS autolearn=ham version=3.3.2 X-HELO: mail-in-13.arcor-online.net Received: from mail-in-13.arcor-online.net (HELO mail-in-13.arcor-online.net) (151.189.21.53) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with (CAMELLIA256-SHA encrypted) ESMTPS; Tue, 31 Mar 2015 19:33:15 +0000 Received: from mail-in-16-z2.arcor-online.net (mail-in-16-z2.arcor-online.net [151.189.8.33]) by mx.arcor.de (Postfix) with ESMTP id 3lGgml3QsDzJLxv for ; Tue, 31 Mar 2015 21:33:11 +0200 (CEST) Received: from mail-in-13.arcor-online.net (mail-in-13.arcor-online.net [151.189.21.53]) by mail-in-16-z2.arcor-online.net (Postfix) with ESMTP id 69E6A3FE58F for ; Tue, 31 Mar 2015 21:33:11 +0200 (CEST) X-DKIM: Sendmail DKIM Filter v2.8.2 mail-in-13.arcor-online.net 3lGgml2FdHzJLxv Received: from Gertrud (p54B46330.dip0.t-ipconnect.de [84.180.99.48]) (Authenticated sender: stromeko@arcor.de) by mail-in-13.arcor-online.net (Postfix) with ESMTPSA id 3lGgml2FdHzJLxv for ; Tue, 31 Mar 2015 21:33:11 +0200 (CEST) From: Achim Gratz To: cygwin-apps@cygwin.com Subject: [PATCH] genini.pl: create SHA512 instead of MD5 checksums Date: Tue, 31 Mar 2015 19:33:00 -0000 Message-ID: <87pp7pvu6h.fsf@Rainer.invalid> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.0.50 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-SW-Source: 2015-03/txt/msg00218.txt.bz2 diff --git a/genini.pl b/genini.pl index 973ecfd..f5b13ea 100755 --- a/genini.pl +++ b/genini.pl @@ -6,7 +6,7 @@ # for details. # use File::Basename; -use Digest::MD5; +use Digest::SHA; use Getopt::Long; use strict; @@ -228,9 +228,9 @@ sub filer { myerror "can't open $f - $!" unless $main::okmissing{$what}; return undef; }; - my $md5 = Digest::MD5->new; - $md5->addfile(\*F); - $x->{$what} = join(' ', $f, -s $f, $md5->hexdigest); + my $sha512 = Digest::SHA->new(512); + $sha512->addfile(\*F); + $x->{$what} = join(' ', $f, -s $f, $sha512->hexdigest); } sub tarball { Regards, Achim. -- +<[Q+ Matrix-12 WAVE#46+305 Neuron microQkb Andromeda XTk Blofeld]>+ Factory and User Sound Singles for Waldorf Q+, Q and microQ: http://Synth.Stromeko.net/Downloads.html#WaldorfSounds