(TclReToGlob): remove out-dated Tcl_RegExpCompile check as it causes recursion

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);
     }