diff Doc/tools/node2label.pl @ 7355:b285fbc2646a legacy-trunk

Don't make backups. Use "mv" instead of "ln -s" to install the new names.
author Fred Drake <fdrake@acm.org>
date Wed, 18 Feb 1998 14:52:24 +0000
parents 0d31c7d9697d
children 717c3daca08e
line wrap: on
line diff
--- a/Doc/tools/node2label.pl	Wed Feb 18 14:24:19 1998 +0000
+++ b/Doc/tools/node2label.pl	Wed Feb 18 14:52:24 1998 +0000
@@ -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}");
 }