CHANGE: not throwing an error when attempting to read the DNS of a non-existent host

resolves: Oldes/Rebol-issues#2498

Author: Oldes

src/core/p-dns.c

@@ -110,7 +110,8 @@
 			if (!sock->net.host_info || !GET_FLAG(sock->flags, RRF_DONE)) return R_NONE;
 			if (sock->error) {
 				OS_DO_DEVICE(sock, RDC_CLOSE);
-				Trap_Port(RE_READ_ERROR, port, sock->error);
+				return R_NONE;
+				//Trap_Port(RE_READ_ERROR, port, sock->error);
 			}
 			if (GET_FLAG(sock->modes, RST_REVERSE)) {
 				Set_String(D_RET, Copy_Bytes(sock->data, LEN_BYTES(sock->data)));

src/tests/units/port-test.r3

@@ -698,6 +698,10 @@ if all [
 	--test-- "query dns://"
 	;@@ https://github.com/Oldes/rebol-issues/issues/1826
 		--assert all [error? e: try [query dns://]  e/id = 'no-port-action]
+
+	--test-- "read dns://not-exists"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2498
+		--assert none? try [read dns://not-exists]
 ===end-group===