summaryrefslogtreecommitdiffstats
path: root/generic/tclFileName.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-09-29 16:03:27 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-09-29 16:03:27 (GMT)
commita3e470a520e59549b32c105f2aa0234c30eac772 (patch)
treebe3fc321fed687e92451501bc8e509c83bde8196 /generic/tclFileName.c
parentf47fa38944c02518936f12a7bf883cb48b7feca8 (diff)
downloadtcl-a3e470a520e59549b32c105f2aa0234c30eac772.zip
tcl-a3e470a520e59549b32c105f2aa0234c30eac772.tar.gz
tcl-a3e470a520e59549b32c105f2aa0234c30eac772.tar.bz2
TIP #323 IMPLEMENTATION (partial)
* doc/glob.n: Revise [glob] to accept zero patterns. * generic/tclFileName.c: * tests fileName.test:
Diffstat (limited to 'generic/tclFileName.c')
-rw-r--r--generic/tclFileName.c6
1 files changed, 1 insertions, 5 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c
index 9ff6c07..0c29459 100644
--- a/generic/tclFileName.c
+++ b/generic/tclFileName.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclFileName.c,v 1.92 2008/09/27 19:47:29 dkf Exp $
+ * RCS: @(#) $Id: tclFileName.c,v 1.93 2008/09/29 16:03:30 dgp Exp $
*/
#include "tclInt.h"
@@ -1309,10 +1309,6 @@ Tcl_GlobObjCmd(
}
endOfForLoop:
- if (objc - i < 1) {
- Tcl_WrongNumArgs(interp, 1, objv, "?-switch ...? name ?name ...?");
- return TCL_ERROR;
- }
if ((globFlags & TCL_GLOBMODE_TAILS) && (pathOrDir == NULL)) {
Tcl_AppendResult(interp,
"\"-tails\" must be used with either "