diff options
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) = @_; |