OpenTLS ready
[openssl.git] / util / ssldir.pl
index 6c30685206989c7e91a19b7c9a99d73dd7c47ca5..acbe12e24079eb0bf72f0cc080e737ad09aa64a9 100755 (executable)
@@ -46,7 +46,7 @@ sub dofile
        open(OUT,">$ff.new") || die "unable to open $f:$!\n";
        print OUT @a;
        close(OUT);
-       rename($f,"$ff.old") || die "unable to rename $f\n";
+       rename($f,"$ff.bak") || die "unable to rename $f\n";
        rename("$ff.new",$f) || die "unable to rename $ff.new\n";
        }