class: IPSocketAddress
authorClaus Gittinger <cg@exept.de>
Wed, 01 Jul 2015 23:10:08 +0200
changeset 3582 05524be1015d
parent 3580 91f71d23e7c5
child 3583 4c064148e9d9
class: IPSocketAddress changed: #allForHostName:serviceName:type: do not remember a failed lookup, (in case a host lookup error was proceeded)
IPSocketAddress.st
--- 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$'
 ! !