From 8b2eddb8a62b8068ced956cdc400df961e2a910c Mon Sep 17 00:00:00 2001
From: Marcelo Matus <mmatus@acms.arizona.edu>
Date: Tue, 24 Jan 2006 22:32:37 +0000
Subject: [PATCH] fix error reported by William K. Foster about bad strings
 generating seg faults

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@8549 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 SWIG/Lib/tcl/tclrun.swg | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SWIG/Lib/tcl/tclrun.swg b/SWIG/Lib/tcl/tclrun.swg
index 040f40980..1904f7fb4 100644
--- a/SWIG/Lib/tcl/tclrun.swg
+++ b/SWIG/Lib/tcl/tclrun.swg
@@ -133,7 +133,7 @@ SWIG_Tcl_ConvertPtrFromString(Tcl_Interp *interp, const char *c, void **ptr, swi
   c++;
   c = SWIG_UnpackData(c,ptr,sizeof(void *));
   if (ty) {
-    tc = SWIG_TypeCheck(c,ty);
+    tc = c ? SWIG_TypeCheck(c,ty) : 0;
     if (!tc) {
       return SWIG_ERROR;
     }