use Digest::SHA instead of Digest::SHA1

Makefile

@@ -2,7 +2,7 @@ RELEASE=2.0
 
 VERSION=2.0
 PACKAGE=libpve-storage-perl
-PKGREL=13
+PKGREL=14
 
 DESTDIR=
 PREFIX=/usr

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;
 

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