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 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/any.pm')

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;
-- 
cgit v1.2.1