diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-19 15:18:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-19 15:18:40 (GMT) |
| commit | d8760322be4e1bfb0091bac0a799aef13dc77b87 (patch) | |
| tree | c9f088dd1b1b1916dd9f9c36d64fe70026abe85a /generic/tclZipfs.c | |
| parent | b8ae8ea2c585c93602649930bd3ecdc5677496ad (diff) | |
| parent | 87c013bbb854749c9ddbadd0c84f695ed214db28 (diff) | |
| download | tcl-d8760322be4e1bfb0091bac0a799aef13dc77b87.zip tcl-d8760322be4e1bfb0091bac0a799aef13dc77b87.tar.gz tcl-d8760322be4e1bfb0091bac0a799aef13dc77b87.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclZipfs.c')
| -rw-r--r-- | generic/tclZipfs.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index 3608751..8f91703 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -5538,10 +5538,9 @@ ZipFSMatchInDirectoryProc( wanted = types->type; if ((wanted & TCL_GLOB_TYPE_MOUNT) && (wanted != TCL_GLOB_TYPE_MOUNT)) { if (interp) { - Tcl_SetResult(interp, + ZIPFS_ERROR(interp, "Internal error: TCL_GLOB_TYPE_MOUNT should not " - "be set in conjunction with other glob types.", - TCL_STATIC); + "be set in conjunction with other glob types."); } return TCL_ERROR; } |