diff options
| author | sebres <sebres@users.sourceforge.net> | 2018-04-09 10:04:23 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2018-04-09 10:04:23 (GMT) |
| commit | 24a04c081909c75252c8def939e0473206550302 (patch) | |
| tree | 861b5977cc36ffd089ff95e337b4873a760de068 /generic | |
| parent | 9077b8ce60cdb2f2b4f9f4dc518cc8bf4d8268b5 (diff) | |
| download | tcl-24a04c081909c75252c8def939e0473206550302.zip tcl-24a04c081909c75252c8def939e0473206550302.tar.gz tcl-24a04c081909c75252c8def939e0473206550302.tar.bz2 | |
amend to [5acb57c7aec45e05]: set code to TCL_ERROR, because primitives from tclIOUtil return -1
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclFCmd.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c index 5b2fbe1..1363829 100644 --- a/generic/tclFCmd.c +++ b/generic/tclFCmd.c @@ -422,7 +422,7 @@ TclFileDeleteCmd( * It is important that we break on error, otherwise we might end * up owning reference counts on numerous errorBuffers. */ - + result = TCL_ERROR; break; } } |