Don't make backups.

Use "mv" instead of "ln -s" to install the new names.

Doc/node2label.pl

-#!/depot/gnu/plat/bin/perl -i~
+#!/depot/gnu/plat/bin/perl -i
 
 # read the labels, then reverse the mappings
 require "labels.pl";
@@ -33,6 +33,6 @@ while (<>) {
 }
 
 foreach $oldname (keys %newnames) {
-# or mv
-  system("ln -s $oldname $newnames{$oldname}");
+# or ln -s
+  system("mv $oldname $newnames{$oldname}");
 }

Doc/tools/node2label.pl

-#!/depot/gnu/plat/bin/perl -i~
+#!/depot/gnu/plat/bin/perl -i
 
 # read the labels, then reverse the mappings
 require "labels.pl";
@@ -33,6 +33,6 @@ while (<>) {
 }
 
 foreach $oldname (keys %newnames) {
-# or mv
-  system("ln -s $oldname $newnames{$oldname}");
+# or ln -s
+  system("mv $oldname $newnames{$oldname}");
 }