diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 2001-04-03 04:56:41 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 2001-04-03 04:56:41 +0000 |
commit | fd4d094fa4ec7fed977776a34208027a5d6e994d (patch) | |
tree | 7685296f5a4bacc68daf9e1f9d8c721eb2443c54 | |
parent | 14170903cbf11cae1ade9203966980f7d1b6d8fc (diff) | |
download | perl-fd4d094fa4ec7fed977776a34208027a5d6e994d.tar.gz |
accomodate VMS "mailbox overflow" quirk in testsuite (from
Craig Berry)
p4raw-id: //depot/maint-5.6/perl@9530
-rwxr-xr-x | t/lib/socket.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/lib/socket.t b/t/lib/socket.t index 7017a54bc7..481fd8f3e0 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! |