diff options
author | dgp <dgp@users.sourceforge.net> | 2012-06-25 16:19:42 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2012-06-25 16:19:42 (GMT) |
commit | 5b2718a49ed67a4ac9378b222b1cab87cf55856b (patch) | |
tree | 0fbafe3fc1eae7bcb61f95ce2de6b5ec8100bfb6 /generic/tclIOUtil.c | |
parent | b0f256541bc7a9e4221bcf6500e83e8cf5c250d6 (diff) | |
download | tcl-5b2718a49ed67a4ac9378b222b1cab87cf55856b.zip tcl-5b2718a49ed67a4ac9378b222b1cab87cf55856b.tar.gz tcl-5b2718a49ed67a4ac9378b222b1cab87cf55856b.tar.bz2 |
Repair Claim/Disclaim imbalance
Diffstat (limited to 'generic/tclIOUtil.c')
-rw-r--r-- | generic/tclIOUtil.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index dccbeb5..b1b8961 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -4390,6 +4390,7 @@ Tcl_FSGetFileSystemForPath( Claim(); if (TclFSEnsureEpochOk(pathPtr, &retVal) != TCL_OK) { + Disclaim(); return NULL; } |