xCAT/xcat-core
2
0
Fork 0
mirror of https://github.com/xcat2/xcat-core.git synced 2025-05-29 09:13:08 +00:00
Code Issues Releases Wiki Activity

Remove deprecated blocksize argument

Browse Source 
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.
This commit is contained in:
Markus Hilger 2022-12-05 11:42:34 +01:00
parent d63152c68f
commit d44c86fadf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
xCAT-server/lib/perl/xCAT/IPMI.pm
View File

@ -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));
}