IPSocketAddress.st
changeset 3582 05524be1015d
parent 3522 ef4bcb09a540
child 3772 ea7a85e2bb8f
--- a/IPSocketAddress.st	Sun Jun 28 03:54:07 2015 +0000
+++ b/IPSocketAddress.st	Wed Jul 01 23:10:08 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -104,7 +102,9 @@
                             ].
     ] ifFalse:[
         addressList := super allForHostName:name serviceName:portNrOrName type:socketTypeSymbol.
-        self addressCacheAt:name put:(addressList deepCopy).
+        addressList notNil ifTrue:[
+            self addressCacheAt:name put:(addressList deepCopy).
+        ].
     ].
     ^ addressList
 
@@ -610,10 +610,10 @@
 !IPSocketAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/IPSocketAddress.st,v 1.46 2015-03-02 23:30:01 stefan Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/IPSocketAddress.st,v 1.46 2015-03-02 23:30:01 stefan Exp $'
+    ^ '$Header$'
 ! !