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) {
# or ln -s
system("mv $oldname $newnames{$oldname}");
rename($oldname, $newnames{$oldname});
}