-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
2010-01-31 18:39:53 +00:00 · 2010-01-31 18:39:53 +00:00 · c38f03b095
commit c38f03b095
parent f96edf4fa9
1 changed files with 3 additions and 0 deletions
--- 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);
    }