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

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@16911 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
xq2005 2013-07-09 07:15:39 +00:00
parent 4e38b17f76
commit b5f3b1b526

View File

@ -73,7 +73,12 @@ use IO::Socket;
use IO::Select;
use Class::Struct;
use Digest::MD5 qw(md5);
use Digest::SHA1 qw(sha1);
if ( -f "/etc/debian_verion" ){
use Digest::SHA qw(sha1);
}
else{
use Digest::SHA1 qw(sha1);
}
use POSIX qw(WNOHANG mkfifo strftime);
use Fcntl qw(:flock);