+foreach $link (keys %linktargs) {
+ mkparents($link);
+ $targ= $linktargs{$link};
+ if (lstat $home.$link) {
+ -l _ or die "$link is not a link!";
+ defined($rl= readlink $home.$link) or die $!;
+ } else {
+ die unless $!==&ENOENT;
+ $rl= '';
+ }
+ if ($rl ne $targ) {
+ would($link, "symlink $targ <-");
+ if ($action) {
+ symlink $targ,$home.$link or die $!;
+ }
+ }
+}
+