From 77de0bfad055e0d6faec34b1291f50d076176984 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 2 Dec 2002 17:14:23 +0000 Subject: - any::runlevel() doesnt need the prefix anymore - fix use of any:runlevel() --- perl-install/Xconfig/various.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/Xconfig/various.pm b/perl-install/Xconfig/various.pm index f02c56c21..bb40b67e2 100644 --- a/perl-install/Xconfig/various.pm +++ b/perl-install/Xconfig/various.pm @@ -53,7 +53,7 @@ sub various { sub choose_xdm { my ($in, $auto) = @_; - my $xdm = $::isStandalone ? any::runlevel($::prefix) : 1; + my $xdm = $::isStandalone ? any::runlevel() == 5 : 1; if (!$auto || $::isStandalone) { $in->set_help('configureXxdm') if !$::isStandalone; @@ -62,7 +62,7 @@ sub choose_xdm { N("I can setup your computer to automatically start the graphical interface (XFree) upon booting. Would you like XFree to start when you reboot?"), $xdm) or return; } - any::runlevel($::prefix, $xdm ? 5 : 3); + any::runlevel($xdm ? 5 : 3); } sub tvout { -- cgit v1.2.1