diff options
| author | Martin Whitaker <mageia@martin-whitaker.me.uk> | 2025-12-27 10:08:31 +0000 |
|---|---|---|
| committer | Martin Whitaker <mageia@martin-whitaker.me.uk> | 2025-12-27 10:49:14 +0000 |
| commit | 94f2881456fa0dcbacec31d7973cc5d9eb9514ce (patch) | |
| tree | f8daed4376440bf7ffa51546e82572d788d625bb /perl-install/lang.pm | |
| parent | 07290675d392c2dc34de4cf1aa795501278b4c12 (diff) | |
| download | drakx-94f2881456fa0dcbacec31d7973cc5d9eb9514ce.tar drakx-94f2881456fa0dcbacec31d7973cc5d9eb9514ce.tar.gz drakx-94f2881456fa0dcbacec31d7973cc5d9eb9514ce.tar.bz2 drakx-94f2881456fa0dcbacec31d7973cc5d9eb9514ce.tar.xz drakx-94f2881456fa0dcbacec31d7973cc5d9eb9514ce.zip | |
Fix inconsistent use of any::sessions()
Some callers of any::sessions() expected it to return a list of session
names, other callers expected it to return a list of base file names,
leading to various bugs in the autologin handling. So provide two new
subroutines, session_files(), to provide a map of names to files, and
session_names() to return a sorted list of names. Remove sessions() to
avoid confusion in future. Fix up the users accordingly.
Diffstat (limited to 'perl-install/lang.pm')
| -rw-r--r-- | perl-install/lang.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 5301bd1f3..6767a33d0 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -970,8 +970,8 @@ sub IM2packages { my ($locale) = @_; if ($locale->{IM}) { require any; - my @sessions = any::sessions(); - $is_plasma = any { /plasma/ } @sessions; + my @sessions = any::session_names(); + $is_plasma = any { /plasma/i } @sessions; my $per_lang = $IM_config{$locale->{IM}}{packages} || {}; my $main_lang = analyse_locale_name($locale->{lang})->{main}; my $packages = $per_lang->{$main_lang} || $per_lang->{generic}; |