[PATCH] genini.pl: create SHA512 instead of MD5 checksums

[Achim Gratz <Stromeko at nexgo dot de>]

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