From b750fd02497a583e2d924ef8f540d4bafaa290ec Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Fri, 5 Dec 2003 16:22:57 +0000 Subject: don't start services that are obviously backups of older files --- move/move.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'move') diff --git a/move/move.pm b/move/move.pm index cd3ef6274..d5dc1a7c1 100644 --- a/move/move.pm +++ b/move/move.pm @@ -619,7 +619,11 @@ sub install2::startMove { touch '/var/run/utmp'; run_program::run('runlevel_set', '5'); - member($_, qw(xfs dm devfsd syslog)) or run_program::run($_, 'start') foreach glob('/etc/rc.d/rc5.d/*'); + foreach (glob('/etc/rc.d/rc5.d/*')) { + next if member($_, qw(xfs dm devfsd syslog)); + next if /~$/; + run_program::run($_, 'start'); + } #- allow user customisation of startup through /etc/rc.d/rc.local run_program::run('/etc/rc.d/rc.local'); -- cgit v1.2.1