generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

More Win32 fixes. The Configure script used to give *lots* of warnings about

Browse Source 
use of undefined variables: kludge so they all get initialised. Also avoid use
of POSIX module.
This commit is contained in:
Dr. Stephen Henson 1999-02-01 00:43:14 +00:00
parent 9b3086fe38
commit df0af1a7d8
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Configure
View File

@ -2,7 +2,6 @@
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
@ -295,7 +294,7 @@ if (!defined($table{$target}))
(my $cc,my $cflags,my $lflags,my $bn_ops,my $bn_obj,my $des_obj,my $bf_obj, (my $cc,my $cflags,my $lflags,my $bn_ops,my $bn_obj,my $des_obj,my $bf_obj,
$md5_obj,$sha1_obj,my $cast_obj,my $rc4_obj,$rmd160_obj,my $rc5_obj)= $md5_obj,$sha1_obj,my $cast_obj,my $rc4_obj,$rmd160_obj,my $rc5_obj)=
split(/\s*:\s*/,$table{$target}); split(/\s*:\s*/,$table{$target} . ":" x 20 , -1);
$cflags="$flags$cflags" if ($flags ne ""); $cflags="$flags$cflags" if ($flags ne "");
$lflags="$libs$lflags"if ($libs ne ""); $lflags="$libs$lflags"if ($libs ne "");
@ -306,6 +305,7 @@ if ($no_asm)
} }
my ($bn1)=split(/\s+/,$bn_obj); my ($bn1)=split(/\s+/,$bn_obj);
$bn1 = "" unless defined $bn1;
$bn1=$bn_asm unless ($bn1 =~ /\.o$/); $bn1=$bn_asm unless ($bn1 =~ /\.o$/);
$bn_obj="$bn1"; $bn_obj="$bn1";
@ -610,11 +610,10 @@ sub bad_target
sub Rename sub Rename
{ {
my($from,$to)=@_; my($from,$to)=@_;
unlink($to); unlink($to);
if(!rename($from,$to)) if(!rename($from,$to))
{ {
POSIX::errno() == POSIX::ENOENT || die "unable to rename $from to $to:$!\n"; -e $from && die "unable to rename $from to $to:$!\n";
} }
} }