summaryrefslogtreecommitdiffstats
path: root/generic/tclPathObj.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclPathObj.c')
-rw-r--r--generic/tclPathObj.c12
1 files changed, 10 insertions, 2 deletions
diff --git a/generic/tclPathObj.c b/generic/tclPathObj.c
index daa9297..bcb1500 100644
--- a/generic/tclPathObj.c
+++ b/generic/tclPathObj.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclPathObj.c,v 1.29 2004/04/06 22:25:54 dgp Exp $
+ * RCS: @(#) $Id: tclPathObj.c,v 1.30 2004/04/23 12:09:37 vincentdarley Exp $
*/
#include "tclInt.h"
@@ -672,7 +672,12 @@ GetExtension(pathPtr)
* Results:
* Returns object with refCount of zero, (or if non-zero, it has
* references elsewhere in Tcl). Either way, the caller must
- * increment its refCount before use.
+ * increment its refCount before use. Note that in the case where
+ * the caller has asked to join zero elements of the list, the
+ * return value will be an empty-string Tcl_Obj.
+ *
+ * If the given listObj was invalid, then the calling routine has
+ * a bug, and this function will just return NULL.
*
* Side effects:
* None.
@@ -918,6 +923,9 @@ Tcl_FSJoinPath(listObj, elements)
Tcl_SetObjLength(res, length);
}
}
+ if (res == NULL) {
+ res = Tcl_NewObj();
+ }
return res;
}