diff options
| author | Martin Whitaker <mageia@martin-whitaker.me.uk> | 2025-12-27 10:12:05 +0000 |
|---|---|---|
| committer | Martin Whitaker <mageia@martin-whitaker.me.uk> | 2025-12-27 10:49:19 +0000 |
| commit | 6147dedfc0db16f187172136c7fce9aee81c7466 (patch) | |
| tree | 194c153f9c6a53cb06c578836af87b9337cf4e88 /perl-install | |
| parent | 94f2881456fa0dcbacec31d7973cc5d9eb9514ce (diff) | |
| download | drakx-6147dedfc0db16f187172136c7fce9aee81c7466.tar drakx-6147dedfc0db16f187172136c7fce9aee81c7466.tar.gz drakx-6147dedfc0db16f187172136c7fce9aee81c7466.tar.bz2 drakx-6147dedfc0db16f187172136c7fce9aee81c7466.tar.xz drakx-6147dedfc0db16f187172136c7fce9aee81c7466.zip | |
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.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/any.pm | 8 |
1 files changed, 1 insertions, 7 deletions
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) = @_; |