From c60b796a26ac6510d4089bdfdc3ae92f206ca382 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 17 Jul 2002 12:39:48 +0000
Subject: move the "if !$::testing" for not modifying inittab in function
 runlevel() (was in install_steps.pm)

---
 perl-install/any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index ce092155d..69519938d 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -903,7 +903,7 @@ sub 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;
+	substInFile { s/^id:\d:initdefault:\s*$/id:$runlevel:initdefault:\n/ } $f if !$::testing;
     } else {
 	cat_($f) =~ /^id:(\d):initdefault:\s*$/ && $1;
     }
-- 
cgit v1.2.1