From fcbb83d441156725da382c030d75ab91b148ac87 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 2 Dec 2002 17:33:54 +0000
Subject: any::runlevel() doesnt need the prefix anymore

---
 perl-install/any.pm           | 4 ++--
 perl-install/install_steps.pm | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 0b7debaf8..b61cb2849 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -880,8 +880,8 @@ sub set_login_serial_console {
 
 
 sub runlevel {
-    my ($prefix, $runlevel) = @_;
-    my $f = "$prefix/etc/inittab";
+    my ($runlevel) = @_;
+    my $f = "$::prefix/etc/inittab";
     -r $f or log::l("missing inittab!!!"), return;
     if ($runlevel) {
 	substInFile { s/^id:\d:initdefault:\s*$/id:$runlevel:initdefault:\n/ } $f if !$::testing;
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 659ec72ac..cbd6cbc85 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -936,7 +936,7 @@ sub configureXAfter {
     if ($o->{X}{bios_vga_mode}) {
 	install_any::setupFB($o, $o->{X}{bios_vga_mode}) or do {
 	    log::l("disabling automatic start-up of X11 if any as setup framebuffer failed");
-	    any::runlevel($o->{prefix}, 3); #- disable automatic start-up of X11 on error.
+	    any::runlevel(3); #- disable automatic start-up of X11 on error.
 	};
     }
     if ($o->{X}{default_depth} >= 16 && $o->{X}{resolution_wanted} >= 1024) {
-- 
cgit v1.2.1