Use Perl's rename() function instead of system(); there's no need for two

additional processes for each name change!
This commit is contained in:
Fred Drake 1998-08-11 18:17:47 +00:00
parent 211f22c1b1
commit af06a0b4ee

View file

@ -51,6 +51,5 @@ while (<>) {
} }
foreach $oldname (keys %newnames) { foreach $oldname (keys %newnames) {
# or ln -s rename($oldname, $newnames{$oldname});
system("mv $oldname $newnames{$oldname}");
} }