diff options
| author | vincentdarley <vincentdarley> | 2005-08-31 15:12:18 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2005-08-31 15:12:18 (GMT) |
| commit | 9dffb7863ba4b0e760ce19215def938abecbcfea (patch) | |
| tree | 807c9aa089e7e4c4b5f9c102046d5b6780d24a19 /generic | |
| parent | 2e73eedbe37a9f715cd90a7428f6d03648491e8a (diff) | |
| download | tcl-9dffb7863ba4b0e760ce19215def938abecbcfea.zip tcl-9dffb7863ba4b0e760ce19215def938abecbcfea.tar.gz tcl-9dffb7863ba4b0e760ce19215def938abecbcfea.tar.bz2 | |
allow NULL interp in Tcl_FSMatchInDirectory
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclIOUtil.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index 43b8b31..b540f90 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -17,7 +17,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIOUtil.c,v 1.121 2005/07/17 22:04:50 dkf Exp $ + * RCS: @(#) $Id: tclIOUtil.c,v 1.122 2005/08/31 15:12:18 vincentdarley Exp $ */ #include "tclInt.h" @@ -1045,7 +1045,8 @@ Tcl_FSUnregister(fsPtr) int Tcl_FSMatchInDirectory(interp, resultPtr, pathPtr, pattern, types) - Tcl_Interp *interp; /* Interpreter to receive error messages. */ + Tcl_Interp *interp; /* Interpreter to receive error + * messages, but may be NULL. */ Tcl_Obj *resultPtr; /* List object to receive results. */ Tcl_Obj *pathPtr; /* Contains path to directory to search. */ CONST char *pattern; /* Pattern to match against. */ |