From 0db7fd3e4ac8582f25a6859837776a7d6bbdaac6 Mon Sep 17 00:00:00 2001 From: xq2005 Date: Tue, 9 Jul 2013 07:20:57 +0000 Subject: [PATCH] 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 --- xCAT-buildkit/lib/perl/xCAT/BuildKitUtils.pm | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/xCAT-buildkit/lib/perl/xCAT/BuildKitUtils.pm b/xCAT-buildkit/lib/perl/xCAT/BuildKitUtils.pm index d53239032..5c34eb7fa 100644 --- a/xCAT-buildkit/lib/perl/xCAT/BuildKitUtils.pm +++ b/xCAT-buildkit/lib/perl/xCAT/BuildKitUtils.pm @@ -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";