summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-29 19:25:36 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-29 19:25:36 +0000
commit0b88c22555f88c1a72395dd39d0e71e001d6ea57 (patch)
tree4d5edc438d22ad1524b91fbd70f330e4d0727347 /perl-install
parent74c79d68b2b44241f8f59ee5ef806eec985347a7 (diff)
downloaddrakx-0b88c22555f88c1a72395dd39d0e71e001d6ea57.tar
drakx-0b88c22555f88c1a72395dd39d0e71e001d6ea57.tar.gz
drakx-0b88c22555f88c1a72395dd39d0e71e001d6ea57.tar.bz2
drakx-0b88c22555f88c1a72395dd39d0e71e001d6ea57.tar.xz
drakx-0b88c22555f88c1a72395dd39d0e71e001d6ea57.zip
(ask_for_X_restart): make it work
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;
}