From df0af1a7d89842bd3d8eebe5c0b324e357211ca3 Mon Sep 17 00:00:00 2001 From: "Dr. Stephen Henson" Date: Mon, 1 Feb 1999 00:43:14 +0000 Subject: [PATCH] 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. --- Configure | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/Configure b/Configure index 79edba214c..83d4196da4 100755 --- a/Configure +++ b/Configure @@ -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"; } } -- 2.25.1