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