summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-10-26 13:59:28 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-10-26 13:59:28 (GMT)
commit408495bbff42d176d340658977bf1942b11495cf (patch)
tree159042abe433413100aba85a667c90140def1d07 /win
parent74c67fdfe6a0ffd668bac120a258b398bd2feb97 (diff)
downloadtcl-408495bbff42d176d340658977bf1942b11495cf.zip
tcl-408495bbff42d176d340658977bf1942b11495cf.tar.gz
tcl-408495bbff42d176d340658977bf1942b11495cf.tar.bz2
* unix/tclUnixSock.c (TcpGetOptionProc): Prevent crash if interp is
* win/tclWinSock.c (TcpGetOptionProc): NULL (a legal situation).
Diffstat (limited to 'win')
-rw-r--r--win/tclWinSock.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/win/tclWinSock.c b/win/tclWinSock.c
index 7f3dbac..347aa1c 100644
--- a/win/tclWinSock.c
+++ b/win/tclWinSock.c
@@ -8,7 +8,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclWinSock.c,v 1.78 2010/10/26 13:14:09 rmax Exp $
+ * RCS: @(#) $Id: tclWinSock.c,v 1.79 2010/10/26 13:59:28 dkf Exp $
*
* -----------------------------------------------------------------------
*
@@ -2079,6 +2079,7 @@ TcpGetOptionProc(
SOCKET sock;
size_t len = 0;
int reverseDNS = 0;
+#define SUPPRESS_RDNS_VAR "::tcl::unsupported::noReverseDNS"
/*
* Check that WinSock is initialized; do not call it if not, to prevent
@@ -2118,7 +2119,7 @@ TcpGetOptionProc(
return TCL_OK;
}
- if (Tcl_GetVar(interp, "::tcl::unsupported::noReverseDNS", 0) != NULL) {
+ if (interp != NULL && Tcl_GetVar(interp, SUPPRESS_RDNS_VAR, 0) != NULL) {
reverseDNS = NI_NUMERICHOST;
}