From: M. J. T. Guy <mjtg@cus.cam.ac.uk>
Date: Sat, 20 Feb 1999 15:24:57 +0000 (+0000)
Subject: testsuite adjustments
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7e3cfbc1cd50bd5f1a5169e03634c44e2dbcb2a1;p=p5sagit%2Fp5-mst-13.2.git

testsuite adjustments
	Message-Id: <E10EEH3-0003Wf-00@taurus.cus.cam.ac.uk>
	Subject: Not quite OK: perl5.005_55 on SunOS 4.1.3 / gcc

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

diff --git a/t/lib/io_sock.t b/t/lib/io_sock.t
index b1189a0..79be190 100755
--- a/t/lib/io_sock.t
+++ b/t/lib/io_sock.t
@@ -124,7 +124,7 @@ if($pid = fork()) {
     }
 
     # some machines seem to suffer from a race condition here
-#    sleep(1);
+    sleep(1);
 
     $sock = IO::Socket::INET->new("127.0.0.1:$port");
     if ($sock) {
diff --git a/t/op/lex_assign.t b/t/op/lex_assign.t
index e45f8ea..cf16a46 100755
--- a/t/op/lex_assign.t
+++ b/t/op/lex_assign.t
@@ -196,8 +196,8 @@ getpgrp				# getpgrp
 getpriority $$, $$		# getpriority
 '???'				# setpriority
 time				# time
-localtime			# localtime
-gmtime				# gmtime
+localtime $^T			# localtime
+gmtime $^T			# gmtime
 sleep 1				# sleep
 '???'				# alarm
 '???'				# shmget