use Digest::SHA instead of Digest::SHA1

This commit is contained in:
Dietmar Maurer
2012-03-20 11:27:51 +01:00
parent d642361b29
commit 6bf7eb0903
3 changed files with 9 additions and 3 deletions

View File

@ -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;