From 6bf7eb0903d3beac970858d8f58a008318ea52f6 Mon Sep 17 00:00:00 2001
From: Dietmar Maurer <dietmar@proxmox.com>
Date: Tue, 20 Mar 2012 11:27:51 +0100
Subject: [PATCH] use Digest::SHA instead of Digest::SHA1

---
 Makefile         | 2 +-
 PVE/Storage.pm   | 4 ++--
 changelog.Debian | 6 ++++++
 3 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/Makefile b/Makefile
index e955ddf..1a8dbc7 100644
--- a/Makefile
+++ b/Makefile
@@ -2,7 +2,7 @@ RELEASE=2.0
 
 VERSION=2.0
 PACKAGE=libpve-storage-perl
-PKGREL=13
+PKGREL=14
 
 DESTDIR=
 PREFIX=/usr
diff --git a/PVE/Storage.pm b/PVE/Storage.pm
index 6209f82..52a6c93 100755
--- a/PVE/Storage.pm
+++ b/PVE/Storage.pm
@@ -13,7 +13,7 @@ use IPC::Open2;
 use Cwd 'abs_path';
 use Getopt::Long qw(GetOptionsFromArray);
 use Socket;
-use Digest::SHA1;
+use Digest::SHA;
 use Net::Ping;
 
 use PVE::Tools qw(run_command file_read_firstline trim);
@@ -419,7 +419,7 @@ sub parse_config {
 
     my $ids = {};
 
-    my $digest = Digest::SHA1::sha1_hex(defined($raw) ? $raw : '');
+    my $digest = Digest::SHA::sha1_hex(defined($raw) ? $raw : '');
 
     my $pri = 0;
 
diff --git a/changelog.Debian b/changelog.Debian
index 0bfa375..990d37c 100644
--- a/changelog.Debian
+++ b/changelog.Debian
@@ -1,3 +1,9 @@
+libpve-storage-perl (2.0-14) unstable; urgency=low
+
+  * use Digest::SHA instead of Digest::SHA1
+
+ -- Proxmox Support Team <support@proxmox.com>  Tue, 20 Mar 2012 11:27:24 +0100
+
 libpve-storage-perl (2.0-13) unstable; urgency=low
 
   * new lvm option 'saferemove' to zero-out data when removing LVs