From eb8ec6300ad08687136cc291be3eea311754a736 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 20 Dec 1999 17:52:47 +0000 Subject: no_comment --- perl-install/standalone/drakxservices | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakxservices b/perl-install/standalone/drakxservices index 621def75f..e34b1a22f 100755 --- a/perl-install/standalone/drakxservices +++ b/perl-install/standalone/drakxservices @@ -13,7 +13,7 @@ $::isStandalone = 1; my $in = vnew interactive('su'); -my @l = map { chop; $_ } `cd /etc/rc.d/init.d ; grep -l "chkconfig:" *`; +my @l = grep { !/\.rpmsave$/ } map { chop; $_ } `cd /etc/rc.d/init.d ; grep -l "chkconfig:" *`; my @before = map { bool(@_ = glob("/etc/rc.d/rc*.d/*$_")) } @l; my $after = $in->ask_many_from_list("drakxservices", @@ -25,6 +25,6 @@ mapn { if ($before != $after) { system("chkconfig", $after ? "--add" : "--del", $name); } -} \@l, \@before, $after; +} \@l, \@before, $after if $after; $in->exit(0); -- cgit v1.2.1