From 8403d92b82f9f775695a3f105a2b5b38b8d1bb20 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Thu, 10 Jul 2008 00:08:39 +0000
Subject: authentication: add back fix to force the password to be utf8
 (#23273), wrongly reverted on r242842)

---
 perl-install/authentication.pm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'perl-install/authentication.pm')

diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm
index 664eb49ae..638cb7f92 100644
--- a/perl-install/authentication.pm
+++ b/perl-install/authentication.pm
@@ -815,6 +815,9 @@ sub salt {
 sub user_crypted_passwd {
     my ($u, $isMD5) = @_;
     if ($u->{password}) {
+	require utf8;
+	utf8::encode($u->{password}); #- we don't want perl to do "smart" things in crypt()
+
 	crypt($u->{password}, $isMD5 ? '$1$' . salt(8) : salt(2));
     } else {
 	$u->{pw} || '';
-- 
cgit v1.2.1