summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-07-29 13:38:59 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-07-29 13:38:59 +0000
commitf63e28d2c82b6d7d1daa1961eccb63c83f46c901 (patch)
tree64dcf70f1f659a006592807dd8e6c277db2cb13e /perl-install/network
parentefdd2c7205a92de5f6bb4beef8baa5eb7212ecc3 (diff)
downloaddrakx-backup-do-not-use-f63e28d2c82b6d7d1daa1961eccb63c83f46c901.tar
drakx-backup-do-not-use-f63e28d2c82b6d7d1daa1961eccb63c83f46c901.tar.gz
drakx-backup-do-not-use-f63e28d2c82b6d7d1daa1961eccb63c83f46c901.tar.bz2
drakx-backup-do-not-use-f63e28d2c82b6d7d1daa1961eccb63c83f46c901.tar.xz
drakx-backup-do-not-use-f63e28d2c82b6d7d1daa1961eccb63c83f46c901.zip
(remove_initscript) simplify
Diffstat (limited to 'perl-install/network')
-rw-r--r--perl-install/network/tools.pm9
1 files changed, 3 insertions, 6 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 57cf647ea..0e5439594 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -145,14 +145,11 @@ sub check_link_beat() {
sub remove_initscript() {
$::testing and return;
- -e "$::prefix/etc/rc.d/init.d/internet" and do {
- $::isStandalone ? system("/sbin/chkconfig --del internet") : do {
- rm_rf("$::prefix/etc/rc.d/rc$_") foreach '0.d/K11internet', '1.d/K11internet', '2.d/K11internet',
- '3.d/S89internet', '5.d/S89internet', '6.d/K11internet';
- };
+ if (-e "$::prefix/etc/rc.d/init.d/internet") {
+ run_program::rooted($::prefix, "/sbin/chkconfig", "--del", "internet");
rm_rf("$::prefix/etc/rc.d/init.d/internet");
log::explanations("Removed internet service");
- };
+ }
}
sub use_windows {