Various cleanups and fixed by Marc and Ralf to start the OpenTLS project
[openssl.git] / util / ssldir.pl
index 6c30685..acbe12e 100755 (executable)
@@ -46,7 +46,7 @@ sub dofile
        open(OUT,">$ff.new") || die "unable to open $f:$!\n";
        print OUT @a;
        close(OUT);
        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";
        }
 
        rename("$ff.new",$f) || die "unable to rename $ff.new\n";
        }