Reflect correct filename
[openssl.git] / util / ssldir.pl
index 6c30685..1d977c9 100755 (executable)
@@ -23,7 +23,7 @@ $#ARGV == 0 || die "usage: ssldir.pl /new/path\n";
        );
 
 %mk1mf=(
        );
 
 %mk1mf=(
-       '^$INSTALLTOP=','$INSTALLTOP="%s";',
+       '^\$INSTALLTOP=','$INSTALLTOP="%s";',
        );
 
 &dofile("crypto/cryptlib.h",$ARGV[0],%cryptlib);
        );
 
 &dofile("crypto/cryptlib.h",$ARGV[0],%cryptlib);
@@ -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";
        }