--- .data/save_perm.pl	2002/03/21 09:57:40	1.2
+++ .data/save_perm.pl	2002/03/21 13:49:24	1.3
@@ -23,7 +23,7 @@
 		if (-l "$curr_dir/$file" && grep(/^\Q$file\E$/,@ignore) == 0) {
 			my $dest=readlink("$curr_dir/$file");
 			$dest="$curr_dir/$dest" if (substr($dest,0,1) ne "/");
-			print "ln -sf $dest $curr_dir/$file\n";
+			print "ln -snf $dest $curr_dir/$file\n";
 		} elsif ((-f "$curr_dir/$file" || -d "$curr_dir/$file") && grep(/^\Q$file\E$/,@ignore) == 0 && -r "$curr_dir/$file") {
 			my (undef,undef,$mode,undef,$uid,$gid) = stat("$curr_dir/$file");
 			if ( $uid != $UID || $gid != $GID ) {