From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 11 Jul 2000 21:17:35 +0000 (+0000)
Subject: windows build tweaks (op/sprintf.t still fails tests 120-121, 149)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=65c97e0fa99ead017678d8a15d6f6e7f4892eb97;p=p5sagit%2Fp5-mst-13.2.git

windows build tweaks (op/sprintf.t still fails tests 120-121, 149)

p4raw-id: //depot/perl@6375
---

diff --git a/t/op/sprintf.t b/t/op/sprintf.t
index 50b4c77..0c2400c 100755
--- a/t/op/sprintf.t
+++ b/t/op/sprintf.t
@@ -21,9 +21,9 @@ print '1..', scalar @tests, "\n";
 
 $SIG{__WARN__} = sub {
     if ($_[0] =~ /^Invalid conversion/) {
-    $w = ' INVALID'
+	$w = ' INVALID'
     } else {
-    warn @_;
+	warn @_;
     }
 };
 
@@ -34,17 +34,26 @@ for ($i = 1; @tests; $i++) {
     $x = sprintf(">$template<",
                  defined @$evalData ? @$evalData : $evalData);
     substr($x, -1, 0) = $w if $w;
-	($y = $x) =~ s/([Ee][-+])0(\d)/$1$2/g;	# $y has 3 exponent digits, not 2
+    # $y may have 3 exponent digits, not 2
+    my $r;
+    if (($y = $x) =~ s/([Ee][-+])0(\d)/$1$2/g) {
+	$y =~ s/^>\s+/>/;
+	$y =~ s/\s+<$/</;
+	$r = $result;
+	$r =~ s/^\s+//;
+	$r =~ s/\s+$//;
+    }
+
     if ($x eq ">$result<") {
         print "ok $i\n";
     }
-	elsif ($y eq ">$result<")				# Some C libraries always give
-	{										# three-digit exponent
-		print("ok $i >$result< $x # three-digit exponent accepted\n");
-	}
+    elsif ($r and $y eq ">$r<")	# Some C libraries always give
+    {				# three-digit exponent
+	print("ok $i >$result< $x # three-digit exponent accepted\n");
+    }
     else {
-    print("not ok $i >$template< >$data< >$result< $x",
-        $comment ? " # $comment\n" : "\n");
+	print("not ok $i >$template< >$data< >$result< $x",
+	    $comment ? " # $comment\n" : "\n");
     }
 }
     
diff --git a/win32/Makefile b/win32/Makefile
index f5ee4c6..1bcda28 100644
--- a/win32/Makefile
+++ b/win32/Makefile
@@ -973,7 +973,7 @@ utils: $(PERLEXE) $(X2P)
 	copy ..\README.win32 .\perlwin32.pod
 	$(MAKE) -f ..\win32\pod.mak converters
 	cd ..\lib
-	$(PERLEXE) lib.pm.PL
+	$(PERLEXE) lib_pm.PL
 	cd ..\win32
 	$(PERLEXE) $(PL2BAT) $(UTILS)
 
diff --git a/win32/makefile.mk b/win32/makefile.mk
index 21836b2..6722a5e 100644
--- a/win32/makefile.mk
+++ b/win32/makefile.mk
@@ -1191,6 +1191,7 @@ utils: $(PERLEXE) $(X2P)
 	copy ..\README.os2 ..\pod\perlos2.pod
 	copy ..\vms\perlvms.pod ..\pod\perlvms.pod
 	cd ..\pod && $(MAKE) -f ..\win32\pod.mak converters
+	cd ..\lib && $(PERLEXE) lib_pm.PL
 	$(PERLEXE) $(PL2BAT) $(UTILS)
 
 distclean: clean
diff --git a/win32/win32sck.c b/win32/win32sck.c
index 043ad44..f7d101b 100644
--- a/win32/win32sck.c
+++ b/win32/win32sck.c
@@ -105,7 +105,7 @@ set_socktype(void)
 {
 #ifdef USE_SOCKETS_AS_HANDLES
 #if defined(USE_THREADS) || defined(USE_ITHREADS)
-    dTHX;
+    dTHXo;
     if (!w32_init_socktype) {
 #endif
 	int iSockOpt = SO_SYNCHRONOUS_NONALERT;