From d44c86fadfdfff1b3c024bce61148683424d89fe Mon Sep 17 00:00:00 2001
From: Markus Hilger <obihoernchende@gmail.com>
Date: Mon, 5 Dec 2022 11:42:34 +0100
Subject: [PATCH] Remove deprecated blocksize argument

Fixes the following error with perl-Crypt-CBC >= 3.0+ (default on EL9+)
'blocksize' is not a recognized argument at /usr/share/perl5/vendor_perl/Crypt/CBC.pm line 312.
at /opt/xcat/lib/perl/xCAT/IPMI.pm line 724.
---
 xCAT-server/lib/perl/xCAT/IPMI.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/xCAT-server/lib/perl/xCAT/IPMI.pm b/xCAT-server/lib/perl/xCAT/IPMI.pm
index 3fb50d582..2164e8aee 100644
--- a/xCAT-server/lib/perl/xCAT/IPMI.pm
+++ b/xCAT-server/lib/perl/xCAT/IPMI.pm
@@ -717,7 +717,7 @@ sub handle_ipmi_packet {
             my @payload = splice(@rsp, 12, $psize);
             if ($encrypted) {
                 my $iv = pack("C*", splice @payload, 0, 16);
-                my $cipher = Crypt::CBC->new(-literal_key => 1, -key => $self->{aeskey}, -cipher => "Crypt::Rijndael", -header => "none", -iv => $iv, -keysize => 16, -blocksize => 16, -padding => \&cbc_pad);
+                my $cipher = Crypt::CBC->new(-literal_key => 1, -key => $self->{aeskey}, -cipher => "Crypt::Rijndael", -header => "none", -iv => $iv, -keysize => 16, -padding => \&cbc_pad);
                 my $crypted = pack("C*", @payload);
                 @payload = unpack("C*", $cipher->decrypt($crypted));
             }