From 5019c188e504d1080f987c0391048458abef7fc9 Mon Sep 17 00:00:00 2001
From: das <das>
Date: Mon, 17 Sep 2007 11:37:30 +0000
Subject: coverity id 100

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

diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c
index e278eae..cbfff64 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.50 2006/08/29 00:36:57 coldstore Exp $
+ * RCS: @(#) $Id: tclUnixFile.c,v 1.51 2007/09/17 11:37:30 das Exp $
  */
 
 #include "tclInt.h"
@@ -886,6 +886,9 @@ TclpObjLink(
 	    Tcl_DecrRefCount(dirPtr);
 	} else {
 	    target = Tcl_FSGetNativePath(toPtr);
+	    if (target == NULL) {
+		return NULL;
+	    }
 	    if (access(target, F_OK) == -1) {
 		/*
 		 * Target doesn't exist.
@@ -894,9 +897,6 @@ TclpObjLink(
 		errno = ENOENT;
 		return NULL;
 	    }
-	    if (target == NULL) {
-		return NULL;
-	    }
 	}
 
 	if (access(src, F_OK) != -1) {
-- 
cgit v0.12