diff options
| -rw-r--r-- | generic/tclUtil.c | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 5a6004c..6e6393c 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUtil.c,v 1.91 2007/11/12 22:12:08 msofer Exp $ + * RCS: @(#) $Id: tclUtil.c,v 1.92 2007/11/13 00:53:04 hobbs Exp $ */ #include "tclInt.h" @@ -3336,20 +3336,6 @@ TclReToGlob(Tcl_Interp *interp, } Tcl_DStringSetLength(dsPtr, dsStr - dsStrStart); -#ifdef TCL_MEM_DEBUG - /* - * Check if this is a bad RE (do this at the end because it can be - * expensive). - * XXX: Is it possible that we can have a bad RE make it through the - * XXX: above checks? - */ - - if (Tcl_RegExpCompile(NULL, reStr) == NULL) { - msg = "couldn't compile RE"; - goto invalidGlob; - } -#endif - if (exactPtr) { *exactPtr = (anchorLeft && anchorRight); } |