diff --git a/perl-xCAT/xCAT/Utils.pm b/perl-xCAT/xCAT/Utils.pm index 69dc739a1..c1b1725cc 100644 --- a/perl-xCAT/xCAT/Utils.pm +++ b/perl-xCAT/xCAT/Utils.pm @@ -25,6 +25,9 @@ my $sha1support = eval { require Digest::SHA1; 1; }; +if ( -f "/etc/debian_version" ){ + $sha1support = eval {require Digest::SHA; 1;} +} use IPC::Open3; use IO::Select; use xCAT::GlobalDef; @@ -208,7 +211,13 @@ sub genUUID return $uuid; } elsif ($args{url} and $sha1support) { #generate a UUIDv5 from URL #6ba7b810-9dad-11d1-80b4-00c04fd430c8 is the uuid for URL namespace - my $sum = Digest::SHA1::sha1('6ba7b810-9dad-11d1-80b4-00c04fd430c8'.$args{url}); + my $sum = ''; + if ( -f "/etc/debian_version" ){ + $sum = Digest::SHA::sha1('6ba7b810-9dad-11d1-80b4-00c04fd430c8'.$args{url}); + } + else{ + $sum = Digest::SHA1::sha1('6ba7b810-9dad-11d1-80b4-00c04fd430c8'.$args{url}); + } my @data = unpack("C*",$sum); splice @data,16; $data[6] = $data[6] & 0xf;