File fall-through.patch of Package tls

--- a/tls.c
+++ b/tls.c
@@ -1424,7 +1424,7 @@
 		channelName = Tcl_GetStringFromObj(objv[2], NULL);
 		break;
 	    }
-	    /* else fall... */
+	    /* else fall-through ... */
 	default:
 	    Tcl_WrongNumArgs(interp, 1, objv, "?-local? channel");
 	    return TCL_ERROR;
--- a/tlsBIO.c
+++ b/tlsBIO.c
@@ -231,9 +231,12 @@
 	switch (cmd) {
 		case BIO_CTRL_RESET:
 			dprintf("Got BIO_CTRL_RESET");
-			num = 0;
+			ret = 0;
+			break;
 		case BIO_C_FILE_SEEK:
 			dprintf("Got BIO_C_FILE_SEEK");
+			ret = 0;
+			break;
 		case BIO_C_FILE_TELL:
 			dprintf("Got BIO_C_FILE_TELL");
 			ret = 0;