--- .data/save_perm.pl	2001/11/09 16:42:06	1.1
+++ .data/save_perm.pl	2001/11/20 15:01:59	1.2
@@ -19,7 +19,11 @@
 	print STDERR "ignore: ",join("|",@ignore);
 	@clutter = readdir(DIR);
 	foreach my $file (@clutter) {
-		if (-f "$curr_dir/$file" && grep(/^\Q$file\E$/,@ignore) == 0) {
+		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 -s $dest $curr_dir/$file\n";
+		} elsif (-f "$curr_dir/$file" && grep(/^\Q$file\E$/,@ignore) == 0) {
 			my (undef,undef,$mode,undef,$uid,$gid) = stat("$curr_dir/$file");
 			if ($uid != $UID || $gid != $GID) {
 				print "chown ",scalar(getpwuid($uid)),":",scalar(getpwuid($gid))," $curr_dir/$file\n";