From ee623a6b64ff51fd3910c18810f6050e69a6ada1 Mon Sep 17 00:00:00 2001
From: das <das>
Date: Sat, 2 Dec 2006 01:23:00 +0000
Subject: fix warning

---
 generic/tclIOCmd.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c
index c2c1bb8..e50c2c6 100644
--- a/generic/tclIOCmd.c
+++ b/generic/tclIOCmd.c
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclIOCmd.c,v 1.35 2006/12/01 15:55:44 dgp Exp $
+ * RCS: @(#) $Id: tclIOCmd.c,v 1.36 2006/12/02 01:23:00 das Exp $
  */
 
 #include "tclInt.h"
@@ -1675,15 +1675,16 @@ TclChanPendingObjCmd(
 	} else {
 	    Tcl_SetObjResult(interp, Tcl_NewIntObj(Tcl_InputBuffered(chan)));
 	}
-	return TCL_OK;
+	break;
     case PENDING_OUTPUT:
 	if ((mode & TCL_WRITABLE) == 0) {
 	    Tcl_SetObjResult(interp, Tcl_NewIntObj(-1));
 	} else {
 	    Tcl_SetObjResult(interp, Tcl_NewIntObj(Tcl_OutputBuffered(chan)));
 	}
-	return TCL_OK;
+	break;
     }
+    return TCL_OK;
 }
 
 /*
-- 
cgit v0.12