--- loncom/interface/domainprefs.pm 2025/03/13 14:28:53 1.451 +++ loncom/interface/domainprefs.pm 2025/05/13 04:07:07 1.452 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set domain-wide configuration settings # -# $Id: domainprefs.pm,v 1.451 2025/03/13 14:28:53 raeburn Exp $ +# $Id: domainprefs.pm,v 1.452 2025/05/13 04:07:07 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -16578,8 +16578,8 @@ sub get_priv_creds { my $privkey = $privhash{'key'}; $privnum = $privhash{'version'}; if (($privnum) && ($privkey ne '')) { - $cipher = Crypt::CBC->new({'key' => $privkey, - 'cipher' => 'DES'}); + $cipher = Crypt::CBC->new(-pass => $privkey, + -cipher => 'Crypt::DES'); } } }