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 (executable)
--- 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!