diff options
| author | vincentdarley <vincentdarley@noemail.net> | 2005-08-31 15:12:17 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley@noemail.net> | 2005-08-31 15:12:17 (GMT) |
| commit | 182f02bf44a3129a126e6043e0cff2c245a2c13c (patch) | |
| tree | 807c9aa089e7e4c4b5f9c102046d5b6780d24a19 /generic/tclIOUtil.c | |
| parent | cb33d62c75d31b85db3af712d0e57548956b7a48 (diff) | |
| download | tcl-182f02bf44a3129a126e6043e0cff2c245a2c13c.zip tcl-182f02bf44a3129a126e6043e0cff2c245a2c13c.tar.gz tcl-182f02bf44a3129a126e6043e0cff2c245a2c13c.tar.bz2 | |
allow NULL interp in Tcl_FSMatchInDirectory
FossilOrigin-Name: 5139fcec81092f6d0fbdcccc79baeab183f41857
Diffstat (limited to 'generic/tclIOUtil.c')
| -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. */ |