From c5702395c96f47b40d602413f60cb88b8b65b169 Mon Sep 17 00:00:00 2001
From: das <das>
Date: Sat, 25 Mar 2006 01:47:56 +0000
Subject: added check for NULL return value of Tcl_FSGetTranslatedPath(),
 coverity bug 39

---
 unix/tclUnixFile.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c
index c1092e9..2f2ebc4 100644
--- a/unix/tclUnixFile.c
+++ b/unix/tclUnixFile.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclUnixFile.c,v 1.48 2006/03/21 11:06:24 das Exp $
+ * RCS: @(#) $Id: tclUnixFile.c,v 1.49 2006/03/25 01:47:56 das Exp $
  */
 
 #include "tclInt.h"
@@ -1080,6 +1080,9 @@ TclNativeCreateNativeRep(
 	 */
 
 	validPathPtr = Tcl_FSGetTranslatedPath(NULL, pathPtr);
+	if (validPathPtr == NULL) {
+	    return NULL;
+	}
     } else {
 	/*
 	 * Make sure the normalized path is set.
-- 
cgit v0.12