--- nfo/perl/scripts/umltools/uml_setup.pl	2002/11/03 01:22:23	1.3
+++ nfo/perl/scripts/umltools/uml_setup.pl	2004/09/20 22:08:17	1.4
@@ -205,12 +205,12 @@
 
   # runlevel init scripts
   $filename = "$runlevel_base/S30$daemon";
-  $cmd = "rm $filename; ln $initscript_path -s $filename";
+  $cmd = "test -e $filename && rm $filename; ln $initscript_path -s $filename";
   askCmd("do it?", $cmd, "create $filename");
   chmod S_IRWXU|S_IRGRP|S_IXGRP|S_IROTH|S_IXOTH, $filename;
 
   $filename = "$runlevel_base/K01$daemon";
-  $cmd = "rm $filename; ln $initscript_path -s $filename";
+  $cmd = "test -e $filename && rm $filename; ln $initscript_path -s $filename";
   askCmd("do it?", $cmd, "create $filename");
   chmod S_IRWXU|S_IRGRP|S_IXGRP|S_IROTH|S_IXOTH, $filename;