From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 3 Apr 2001 13:06:34 +0000 (+0000)
Subject: Integrate change #9530 from maintperl into mainline.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=31f187ae5b4b937f1c4319a89e6fd6f99121320a;p=p5sagit%2Fp5-mst-13.2.git

Integrate change #9530 from maintperl into mainline.

accomodate VMS "mailbox overflow" quirk in testsuite (from
Craig Berry)

p4raw-link: @9530 on //depot/maint-5.6/perl: fd4d094fa4ec7fed977776a34208027a5d6e994d

p4raw-id: //depot/perl@9531
p4raw-integrated: from //depot/maint-5.6/perl@9529 'copy in'
	t/lib/socket.t (@7895..)
---

diff --git a/t/lib/socket.t b/t/lib/socket.t
index 7017a54..481fd8f 100755
--- a/t/lib/socket.t
+++ b/t/lib/socket.t
@@ -21,8 +21,8 @@ if (socket(T,PF_INET,SOCK_STREAM,6)) {
   if (connect(T,pack_sockaddr_in(7,inet_aton("localhost")))){
 	print "ok 2\n";
 
-	print "# Connected to ",
-		inet_ntoa((unpack_sockaddr_in(getpeername(T)))[1]),"\n";
+	print "# Connected to " .
+		inet_ntoa((unpack_sockaddr_in(getpeername(T)))[1])."\n";
 
 	syswrite(T,"hello",5);
 	$read = sysread(T,$buff,10);	# Connection may be granted, then closed!
@@ -51,8 +51,8 @@ if( socket(S,PF_INET,SOCK_STREAM,6) ){
   if (connect(S,pack_sockaddr_in(7,INADDR_LOOPBACK))){
 	print "ok 5\n";
 
-	print "# Connected to ",
-		inet_ntoa((unpack_sockaddr_in(getpeername(S)))[1]),"\n";
+	print "# Connected to " .
+		inet_ntoa((unpack_sockaddr_in(getpeername(S)))[1])."\n";
 
 	syswrite(S,"olleh",5);
 	$read = sysread(S,$buff,10);	# Connection may be granted, then closed!