summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorhobbs <hobbs>2007-11-13 00:53:04 (GMT)
committerhobbs <hobbs>2007-11-13 00:53:04 (GMT)
commita72d42baaff30f0e544d118359c4fdbfd4ae0f21 (patch)
tree7ef27f7296c3a40835427d6d93c1e12961beab3f /generic
parent5b4e070132a72fbdc6e847f3d867b0ac50b2b27e (diff)
downloadtcl-a72d42baaff30f0e544d118359c4fdbfd4ae0f21.zip
tcl-a72d42baaff30f0e544d118359c4fdbfd4ae0f21.tar.gz
tcl-a72d42baaff30f0e544d118359c4fdbfd4ae0f21.tar.bz2
(TclReToGlob): remove out-dated Tcl_RegExpCompile check as it causes recursion
Diffstat (limited to 'generic')
-rw-r--r--generic/tclUtil.c16
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);
}