summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/XFdrake7
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/standalone/XFdrake b/perl-install/standalone/XFdrake
index dff5e5f64..635fd0324 100755
--- a/perl-install/standalone/XFdrake
+++ b/perl-install/standalone/XFdrake
@@ -132,7 +132,7 @@ sub ask_for_X_restart {
$in->ask_okcancel('', _("Please relog into %s to activate the changes", ucfirst (lc $wm)), 1) or return;
- fork and $in->exit;
+ fork and return;
any::ask_window_manager_to_logout($wm);
open STDIN, "</dev/zero";
@@ -140,8 +140,9 @@ sub ask_for_X_restart {
open STDERR, ">&STDERR";
c::setsid();
exec qw(perl -e), q{
- my ($wm, $pid) = @_;
- for (my $nb = 30; $nb && -e "/proc/$pid"; $nb--) { sleep 1 }
+ my ($wm, $pid) = @ARGV;
+ my $nb;
+ for ($nb = 30; $nb && -e "/proc/$pid"; $nb--) { sleep 1 }
system("killall X ; killall -15 xdm gdm kdm prefdm") if $nb;
}, $wm, $pid;
}