From 6147dedfc0db16f187172136c7fce9aee81c7466 Mon Sep 17 00:00:00 2001
From: Martin Whitaker <mageia@martin-whitaker.me.uk>
Date: Sat, 27 Dec 2025 10:12:05 +0000
Subject: Remove redundant use of sessions_with_order().

'chksession -L' no longer returns any numbers, so prepending $wm_number
to the session name written to ~/.dmrc has no effect.
---
 perl-install/any.pm | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 830ec7eb5..2b80d929a 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -1000,8 +1000,7 @@ sub set_window_manager {
     my $p_home = "$::prefix$home";
 
     #- for KDM/GDM
-    my $wm_number = sessions_with_order()->{$wm} || '';
-    update_gnomekderc("$p_home/.dmrc", 'Desktop', Session => "$wm_number$wm");
+    update_gnomekderc("$p_home/.dmrc", 'Desktop', Session => "$wm");
     my $user = find { $home eq $_->[7] } list_passwd();
     chown($user->[2], $user->[3], "$p_home/.dmrc");
     chmod(0644, "$p_home/.dmrc");
@@ -1188,11 +1187,6 @@ sub ask_user_and_root {
     $ret && $u;
 }
 
-sub sessions_with_order() {
-    my %h = map { /(.*)=(.*)/ } split(' ', run_program::rooted_get_stdout($::prefix, '/usr/sbin/chksession', '-L'));
-    \%h;
-}
-
 sub urpmi_add_all_media {
     my ($in, $o_previous_release, $o_mirror_url) = @_;
 
-- 
cgit v1.2.1