Set file modes based on pre updated version.

This commit is contained in:
Mark Andrews 1999-09-20 02:33:32 +00:00
parent 15b1d62351
commit 59a6d9cbcd

View file

@ -148,6 +148,8 @@ while (<>) {
}
close(TARGET);
close(SOURCE);
$mode = (stat $file)[2]&511;
chmod $mode, "$file.new";
rename("$file", "$file.bak") || die "rename($file, $file.bak): $!";
rename("$file.new", "$file") || die "rename($file.new, $file): $!";
}