summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2012-06-25 16:19:42 (GMT)
committerdgp <dgp@users.sourceforge.net>2012-06-25 16:19:42 (GMT)
commit5b2718a49ed67a4ac9378b222b1cab87cf55856b (patch)
tree0fbafe3fc1eae7bcb61f95ce2de6b5ec8100bfb6
parentb0f256541bc7a9e4221bcf6500e83e8cf5c250d6 (diff)
downloadtcl-5b2718a49ed67a4ac9378b222b1cab87cf55856b.zip
tcl-5b2718a49ed67a4ac9378b222b1cab87cf55856b.tar.gz
tcl-5b2718a49ed67a4ac9378b222b1cab87cf55856b.tar.bz2
Repair Claim/Disclaim imbalance
-rw-r--r--generic/tclIOUtil.c1
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;
}