From 0ae3e05d2a0084dc96a30dae10ed18027a152d26 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 27 Feb 2003 13:03:02 +0000
Subject: perl_checker fix

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

diff --git a/perl-install/services.pm b/perl-install/services.pm
index 171020e32..611e6d92f 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -281,7 +281,7 @@ sub services {
     if ($::isInstall) {
         @l = sort { $a->[0] cmp $b->[0] } map { [ /([^\s:]+)/, /\bon\b/ ] } grep { !/:$/ } @raw_l;
     } else {
-        my $runlevel = my $runlevel = (split " ", `/sbin/runlevel`)[1];
+        my $runlevel = (split " ", `/sbin/runlevel`)[1];
         @l = sort { $a->[0] cmp $b->[0] } map { [ /([^\s:]+)/, /^\t/ ? /\bon\b/ : /\b$runlevel:on\b/ ] } grep { !/:$/ } @raw_l;
     }
     [ map { $_->[0] } @l ], [ map { $_->[0] } grep { $_->[1] } @l ];
-- 
cgit v1.2.1