Bug#633861: libgit-pure-perl: use Digest::SHA instead of Digest::SHA1

[Jonas Genannt]

tags 633861 + patch pending
thanks

Hello,

> Now, lib/Git/PurePerl.pm, lib/Git/PurePerl/NewObject.pm,
> lib/Git/PurePerl/Pack/WithoutIndex.pm all seems to use Digest::SHA1
> such that could be replaced by Digest::SHA.
> 
> Could you patch libgit-pure-perl to use Digest::SHA instead?

please see attached patch.

Thanks,
        Jonas
Author: Jonas Genannt <jonas.gena...@capi2name.de>
Description: Digest::SHA1 to Digest::SHA translation (Closes: #633861)

diff --git a/META.yml b/META.yml
index e59ecf1..df63cb1 100644
--- a/META.yml
+++ b/META.yml
@@ -26,7 +26,7 @@ requires:
   Config::GitLike: 0
   Data::Stream::Bulk: 0
   DateTime: 0
-  Digest::SHA1: 0
+  Digest::SHA: 0
   File::Find::Rule: 0
   IO::Digest: 0
   Moose: 0
diff --git a/Makefile.PL b/Makefile.PL
index a3e887a..667c46c 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -17,7 +17,7 @@ requires        'Compress::Zlib'             => '0';
 requires        'Config::GitLike'            => '0';
 requires        'Data::Stream::Bulk'         => '0';
 requires        'DateTime'                   => '0';
-requires        'Digest::SHA1'               => '0';
+requires        'Digest::SHA'                => '0';
 requires        'File::Find::Rule'           => '0';
 requires        'IO::Digest'                 => '0';
 requires        'Moose'                      => '0';
diff --git a/lib/Git/PurePerl.pm b/lib/Git/PurePerl.pm
index 9164b1f..aa84b44 100644
--- a/lib/Git/PurePerl.pm
+++ b/lib/Git/PurePerl.pm
@@ -7,7 +7,7 @@ use Data::Stream::Bulk;
 use Data::Stream::Bulk::Array;
 use Data::Stream::Bulk::Path::Class;
 use DateTime;
-use Digest::SHA1;
+use Digest::SHA;
 use File::Find::Rule;
 use Git::PurePerl::Actor;
 use Git::PurePerl::Config;
diff --git a/lib/Git/PurePerl/NewObject.pm b/lib/Git/PurePerl/NewObject.pm
index 74f6d9b..9305e2e 100644
--- a/lib/Git/PurePerl/NewObject.pm
+++ b/lib/Git/PurePerl/NewObject.pm
@@ -13,7 +13,7 @@ has 'sha1'    => ( is => 'ro', isa => 'Str', required => 0, lazy_build => 1 );
 
 sub _build_sha1 {
     my $self = shift;
-    my $sha1 = Digest::SHA1->new;
+    my $sha1 = Digest::SHA->new;
     $sha1->add( $self->raw );
     my $sha1_hex = $sha1->hexdigest;
     return $sha1_hex;
diff --git a/lib/Git/PurePerl/Pack/WithoutIndex.pm b/lib/Git/PurePerl/Pack/WithoutIndex.pm
index 89f0191..a6c7271 100644
--- a/lib/Git/PurePerl/Pack/WithoutIndex.pm
+++ b/lib/Git/PurePerl/Pack/WithoutIndex.pm
@@ -16,7 +16,7 @@ sub create_index {
     $index_filename =~ s/\.pack/.idx/;
     my $index_fh = IO::File->new("> $index_filename") || die $!;
 
-    my $iod = IO::Digest->new( $index_fh, 'SHA1' );
+    my $iod = IO::Digest->new( $index_fh, 'SHA' );
 
     my $offsets = $self->create_index_offsets;
     my @fan_out_table;
@@ -100,7 +100,7 @@ sub create_index_offsets {
         }
 
         my $raw  = $type . ' ' . $size . "\0" . $content;
-        my $sha1 = Digest::SHA1->new;
+        my $sha1 = Digest::SHA->new;
         $sha1->add($raw);
         my $sha1_hex = $sha1->hexdigest;
         $offsets{$sha1_hex} = $obj_offset;