From e5e572f940f3fe4782b62a994fe90a61b3ffb1aa Mon Sep 17 00:00:00 2001
From: xq2005 <xq2005@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Tue, 9 Jul 2013 07:18:25 +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@16912 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/perl/xCAT/IPMI.pm | 27 ++++++++++++++++++++-------
 1 file changed, 20 insertions(+), 7 deletions(-)

diff --git a/xCAT-server/lib/perl/xCAT/IPMI.pm b/xCAT-server/lib/perl/xCAT/IPMI.pm
index c13c01efd..1e5c1f140 100644
--- a/xCAT-server/lib/perl/xCAT/IPMI.pm
+++ b/xCAT-server/lib/perl/xCAT/IPMI.pm
@@ -46,13 +46,26 @@ use Digest::MD5 qw/md5/;
 my $pendingpackets=0;
 my %tabooseq; #TODO: this is a global which means one taboo in the whole set causes unrelated session objects to consider it taboo unnecessarily
 my $maxpending; #determined dynamically based on rcvbuf detection
-my $ipmi2support = eval {
-    require Digest::SHA1;
-    Digest::SHA1->import(qw/sha1/);
-    require Digest::HMAC_SHA1;
-    Digest::HMAC_SHA1->import(qw/hmac_sha1/);
-    1;
-};
+
+my $ipmi2support;
+if ( -f "/etc/debian_release" ){
+    $ipmi2support = eval {
+        require Digest::SHA;
+        Digest::SHA->import(qw/sha1/);
+        require Digest::HMAC_SHA1;
+        Digest::HMAC_SHA1->import(qw/hmac_sha1/);
+        1;
+    };
+}
+else {
+    $ipmi2support = eval {
+        require Digest::SHA1;
+        Digest::SHA1->import(qw/sha1/);
+        require Digest::HMAC_SHA1;
+        Digest::HMAC_SHA1->import(qw/hmac_sha1/);
+        1;
+    };
+}
 my $aessupport;
 if ($ipmi2support) {
     $aessupport = eval {