Integrate change #9530 from maintperl into mainline.

[p5sagit/p5-mst-13.2.git] / t / lib / socket.t

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!