1
0
mirror of https://git.FreeBSD.org/src.git synced 2024-12-11 09:50:12 +00:00

Adjust the reference to ftpBinary() in the (unused) TCL wrappers.

This commit is contained in:
Jordan K. Hubbard 1996-06-24 02:19:27 +00:00
parent df03c82c43
commit b0016ef5b7
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=16658

View File

@ -11,7 +11,7 @@
* the author assume any responsibility for damages incurred with
* its use.
*
* $Id$
* $Id: ftp_pkg.c,v 1.1.1.1 1996/06/17 12:26:06 jkh Exp $
*
* TCL Interface code for functions provided by the ftp library.
*
@ -180,11 +180,11 @@ Ftp_binary(ClientData clientData, Tcl_Interp *interp, int argc, char **argv)
{
FILE *fp;
CHECK_ARGS(2, argv[0], "fileId bool");
CHECK_ARGS(1, argv[0], "fileId");
if (Tcl_GetOpenFile(interp, argv[1], TRUE, TRUE, &fp) != TCL_OK)
return TCL_ERROR;
/* Debug("ftp_pkg: set binary mode to %d", atoi(argv[2])); */
ftpBinary(fp, atoi(argv[2]));
/* Debug("ftp_pkg: set binary mode"); */
ftpBinary(fp);
return TCL_OK;
}