Integrate change #9530 from maintperl into mainline.
Jarkko Hietaniemi [Tue, 3 Apr 2001 13:06:34 +0000 (13:06 +0000)]
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..)

t/lib/socket.t

index 7017a54..481fd8f 100755 (executable)
@@ -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!