From c38f03b095848a4eef2f402c8fb323d1c7d9008c Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Sun, 31 Jan 2010 18:39:53 +0000
Subject: [PATCH] -Fix padding mistake in IPMI library

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5092 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/perl/xCAT/IPMI.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/xCAT-server/lib/perl/xCAT/IPMI.pm b/xCAT-server/lib/perl/xCAT/IPMI.pm
index 7ad8604ad..16535e104 100644
--- a/xCAT-server/lib/perl/xCAT/IPMI.pm
+++ b/xCAT-server/lib/perl/xCAT/IPMI.pm
@@ -436,6 +436,9 @@ sub cbc_pad {
     } elsif ($mode eq 'd') {
         my @block = unpack("C*",$block);
         my $count = pop @block;
+	unless ($count) {
+        	return pack("C*",@block);
+	}
         splice @block,0-$count;
         return pack("C*",@block);
     }