Don't make backups.

Use "mv" instead of "ln -s" to install the new names.
This commit is contained in:
Fred Drake 1998-02-18 14:52:24 +00:00
parent 0c17d661e0
commit 9acafa8bb5
2 changed files with 6 additions and 6 deletions

View file

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

View file

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