From a72d42baaff30f0e544d118359c4fdbfd4ae0f21 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Tue, 13 Nov 2007 00:53:04 +0000
Subject: (TclReToGlob): remove out-dated Tcl_RegExpCompile check as it causes
 recursion

---
 generic/tclUtil.c | 16 +---------------
 1 file changed, 1 insertion(+), 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);
     }
-- 
cgit v0.12