diff options
author | Bodo Möller <bodo@openssl.org> | 2000-03-13 02:27:14 +0300 |
---|---|---|
committer | Bodo Möller <bodo@openssl.org> | 2000-03-13 02:27:14 +0300 |
commit | 863fe2ecac0a86475900655899ea78b472941e52 (patch) | |
tree | 8b41fdaa5bcb4f9996904e0dee3867d2bd611fa1 /Configure | |
parent | 3a6a39c3732a5da986004d86ade879ee24ebac33 (diff) |
cleaning up a little
Diffstat (limited to 'Configure')
-rwxr-xr-x | Configure | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -937,12 +937,11 @@ sub dofile { grep(/$k/ && ($_=sprintf($m{$k}."\n",$p)),@a); } - ($ff=$f) =~ s/\..*$//; - open(OUT,">$ff.new") || die "unable to open $f:$!\n"; + open(OUT,">$f.new") || die "unable to open $f.new:$!\n"; print OUT @a; close(OUT); - rename($f,"$ff.bak") || die "unable to rename $f\n" if -e $f; - rename("$ff.new",$f) || die "unable to rename $ff.new\n"; + rename($f,"$f.bak") || die "unable to rename $f\n" if -e $f; + rename("$f.new",$f) || die "unable to rename $f.new\n"; } sub print_table_entry |