wbrawner/openssl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make Configure work again after eliminating files.

Browse source
This commit is contained in:
Ben Laurie 1998-12-28 22:05:44 +00:00
parent 8d7ed6ff90
commit f2d4be3b84
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
Configure
View file

@ -2,6 +2,7 @@
require 5.000;
use strict;
use POSIX qw(:errno_h);
#
# see PROBLEMS for instructions on what sort of things to do when
@ -326,9 +327,8 @@ if ($rmd160_obj =~ /\.o$/)
$cflags.=" -DRMD160_ASM";
}
my $n=&file_new($Makefile);
open(IN,'<Makefile.org') || die "unable to read $Makefile:$!\n";
open(OUT,">".$n) || die "unable to read $n:$!\n";
open(IN,'<Makefile.org') || die "unable to read Makefile.org:$!\n";
open(OUT,">$Makefile") || die "unable to create $Makefile:$!\n";
while (<IN>)
{
chop;
@ -349,8 +349,7 @@ while (<IN>)
}
close(IN);
close(OUT);
&Rename($Makefile,&file_old($Makefile));
&Rename($n,$Makefile);
print "CC =$cc\n";
print "CFLAG =$cflags\n";
print "EX_LIBS =$lflags\n";
@ -408,7 +407,7 @@ foreach (sort split(/\s+/,$bn_ops))
}
((my $in=$bn) =~ s/\.([^.]+)/.$postfix/);
$n=&file_new($bn);
my $n=&file_new($bn);
open(IN,"<".$in) || die "unable to read $bn:$!\n";
open(OUT,">$n") || die "unable to read $n:$!\n";
while (<IN>)
@ -610,7 +609,10 @@ sub Rename
my($from,$to)=@_;
unlink($to);
rename($from,$to) || die "unable to rename $from to $to:$!\n";
if(!rename($from,$to))
{
POSIX::errno() == POSIX::ENOENT || die "unable to rename $from to $to:$!\n";
}
}
sub file_new { local($a)=@_; $a =~ s/(\.[^.]+$|$)/.new/; $a; }