--- loncom/interface/domainprefs.pm	2025/03/15 01:32:13	1.160.6.118.2.27
+++ loncom/interface/domainprefs.pm	2025/05/13 07:27:23	1.160.6.118.2.28
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.160.6.118.2.27 2025/03/15 01:32:13 raeburn Exp $
+# $Id: domainprefs.pm,v 1.160.6.118.2.28 2025/05/13 07:27:23 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -14674,8 +14674,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');
             }
         }
     }