Don't make backups.

freddrake · freddrake · commit 9acafa8bb54c · 1998-02-18T14:52:24.000Z
Use "mv" instead of "ln -s" to install the new names.
diff --git a/Doc/node2label.pl b/Doc/node2label.pl
@@ -1,4 +1,4 @@
-#!/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 @@
 }
 
 foreach $oldname (keys %newnames) {
-# or mv
-  system("ln -s $oldname $newnames{$oldname}");
+# or ln -s
+  system("mv $oldname $newnames{$oldname}");
 }
diff --git a/Doc/tools/node2label.pl b/Doc/tools/node2label.pl
@@ -1,4 +1,4 @@
-#!/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 @@
 }
 
 foreach $oldname (keys %newnames) {
-# or mv
-  system("ln -s $oldname $newnames{$oldname}");
+# or ln -s
+  system("mv $oldname $newnames{$oldname}");
 }

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-#!/depot/gnu/plat/bin/perl -i~`
	`1`	`+#!/depot/gnu/plat/bin/perl -i`
`2`	`2`
`3`	`3`	`# read the labels, then reverse the mappings`
`4`	`4`	`require "labels.pl";`
`@@ -33,6 +33,6 @@`
`33`	`33`	`}`
`34`	`34`
`35`	`35`	`foreach $oldname (keys %newnames) {`
`36`		`-# or mv`
`37`		`- system("ln -s $oldname $newnames{$oldname}");`
	`36`	`+# or ln -s`
	`37`	`+ system("mv $oldname $newnames{$oldname}");`
`38`	`38`	`}`