diff options
author | Ben Laurie <ben@openssl.org> | 1998-12-28 22:05:44 +0000 |
---|---|---|
committer | Ben Laurie <ben@openssl.org> | 1998-12-28 22:05:44 +0000 |
commit | f2d4be3b84dd38e12dadeba055b28374d56ab1a1 (patch) | |
tree | 75d9e9942c3905f8811f1114021f62873251ab1f /Configure | |
parent | 8d7ed6ff90581cf34a00d59d301d8cc7da2efc54 (diff) | |
download | openssl-f2d4be3b84dd38e12dadeba055b28374d56ab1a1.tar.gz |
Make Configure work again after eliminating files.
Diffstat (limited to 'Configure')
-rwxr-xr-x | Configure | 16 |
1 files changed, 9 insertions, 7 deletions
@@ -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; } |