More Win32 fixes. The Configure script used to give *lots* of warnings about
use of undefined variables: kludge so they all get initialised. Also avoid use of POSIX module.
This commit is contained in:
		@@ -2,7 +2,6 @@
 | 
			
		||||
 | 
			
		||||
require 5.000;
 | 
			
		||||
use strict;
 | 
			
		||||
use POSIX qw(:errno_h);
 | 
			
		||||
 | 
			
		||||
#
 | 
			
		||||
# 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,
 | 
			
		||||
 $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 "");
 | 
			
		||||
$lflags="$libs$lflags"if ($libs ne "");
 | 
			
		||||
 | 
			
		||||
@@ -306,6 +305,7 @@ if ($no_asm)
 | 
			
		||||
	}
 | 
			
		||||
 | 
			
		||||
my ($bn1)=split(/\s+/,$bn_obj);
 | 
			
		||||
$bn1 = "" unless defined $bn1;
 | 
			
		||||
$bn1=$bn_asm unless ($bn1 =~ /\.o$/);
 | 
			
		||||
$bn_obj="$bn1";
 | 
			
		||||
 | 
			
		||||
@@ -610,11 +610,10 @@ sub bad_target
 | 
			
		||||
sub Rename
 | 
			
		||||
	{
 | 
			
		||||
	my($from,$to)=@_;
 | 
			
		||||
 | 
			
		||||
	unlink($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";
 | 
			
		||||
	    }
 | 
			
		||||
	}
 | 
			
		||||
 | 
			
		||||
 
 | 
			
		||||
		Reference in New Issue
	
	Block a user