From 1efb5bfe949b41d16054ae856914388f1afa23d1 Mon Sep 17 00:00:00 2001
From: Salvatore Bonaccorso <carnil@debian.org>
Date: Sat, 4 Nov 2017 11:46:46 -0400
Subject: [PATCH] utils: use Digest::SHA for sha1pass

Debian (Closes: #625812)

Author: Salvatore Bonaccorso <carnil@debian.org>

Logic can be added if we need to check between these.

Signed-off-by: Gene Cumm <gene.cumm@gmail.com>
---
 utils/sha1pass | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/utils/sha1pass b/utils/sha1pass
index 3be2dbc1..34cc99c0 100755
--- a/utils/sha1pass
+++ b/utils/sha1pass
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 use bytes;
-use Digest::SHA1;
+use Digest::SHA;
 use MIME::Base64;
 
 sub random_bytes($) {
@@ -29,6 +29,6 @@ sub random_bytes($) {
 unless (defined($salt)) {
     $salt = MIME::Base64::encode(random_bytes(6), '');
 }
-$pass = Digest::SHA1::sha1_base64($salt, $pass);
+$pass = Digest::SHA::sha1_base64($salt, $pass);
 
 print '$4$', $salt, '$', $pass, "\$\n";