ubuntu and debian ship SHA.pm instand of SHA1.pm

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@16913 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
xq2005 2013-07-09 07:20:57 +00:00
parent e5e572f940
commit 0db7fd3e4a

View File

@ -19,10 +19,20 @@ use File::Path;
use Socket;
use strict;
use Symbol;
my $sha1support = eval {
my $sha1support;
if ( -f "/etc/debian_version" ) {
$sha1support = eval {
require Digest::SHA;
1;
};
}
else {
$sha1support = eval {
require Digest::SHA1;
1;
};
};
}
use IPC::Open3;
use IO::Select;
use warnings "all";