diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-20 17:52:47 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-20 17:52:47 +0000 |
| commit | eb8ec6300ad08687136cc291be3eea311754a736 (patch) | |
| tree | 00461c82ade3511411555ef05863e56cade1bc18 /perl-install/standalone/drakxservices | |
| parent | ee55d090aa6af13799c803588369418d4fcb5897 (diff) | |
| download | drakx-backup-do-not-use-eb8ec6300ad08687136cc291be3eea311754a736.tar drakx-backup-do-not-use-eb8ec6300ad08687136cc291be3eea311754a736.tar.gz drakx-backup-do-not-use-eb8ec6300ad08687136cc291be3eea311754a736.tar.bz2 drakx-backup-do-not-use-eb8ec6300ad08687136cc291be3eea311754a736.tar.xz drakx-backup-do-not-use-eb8ec6300ad08687136cc291be3eea311754a736.zip | |
no_comment
Diffstat (limited to 'perl-install/standalone/drakxservices')
| -rwxr-xr-x | perl-install/standalone/drakxservices | 4 |
1 files changed, 2 insertions, 2 deletions
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); |