Translation from Digest::SHA1 to Digest::SHA

Author: hggh

Makefile.PL

@@ -17,7 +17,6 @@ requires        'Compress::Zlib'             => '0';
 requires        'Config::GitLike'            => '0';
 requires        'Data::Stream::Bulk'         => '0';
 requires        'DateTime'                   => '0';
-requires        'Digest::SHA1'               => '0';
 requires        'File::Find::Rule'           => '0';
 requires        'IO::Digest'                 => '0';
 requires        'Moose'                      => '0';

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;

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;

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;