diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-03 13:06:34 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-03 13:06:34 +0000 |
| commit | 31f187ae5b4b937f1c4319a89e6fd6f99121320a (patch) | |
| tree | be538c1f18d0d22b42d7f8f317673e5c0b3dac06 /t | |
| parent | d57eded6852763e3753285b692dd66ed278e268d (diff) | |
| download | perl-31f187ae5b4b937f1c4319a89e6fd6f99121320a.tar.gz | |
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..)
Diffstat (limited to 't')
| -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! |