diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-03-25 14:52:32 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-03-25 14:52:32 (GMT) |
| commit | ef0d769735e1777b38af7537e22927c92f9e473e (patch) | |
| tree | f86065cfdbf44ff3ffddf01d9a40b0c09270a850 | |
| parent | 1adcd44891a492ada9ee28225979deeec480398c (diff) | |
| download | tcl-ef0d769735e1777b38af7537e22927c92f9e473e.zip tcl-ef0d769735e1777b38af7537e22927c92f9e473e.tar.gz tcl-ef0d769735e1777b38af7537e22927c92f9e473e.tar.bz2 | |
* unix/tclUnixFCmd.c (TclUnixCopyFile): [Bug 2976504]: Corrected
number of arguments to fstatfs() call.
| -rw-r--r-- | ChangeLog | 7 | ||||
| -rw-r--r-- | unix/tclUnixFCmd.c | 4 |
2 files changed, 8 insertions, 3 deletions
@@ -1,6 +1,11 @@ +2010-03-25 Donal K. Fellows <dkf@users.sf.net> + + * unix/tclUnixFCmd.c (TclUnixCopyFile): [Bug 2976504]: Corrected + number of arguments to fstatfs() call. + 2010-03-24 Don Porter <dgp@users.sourceforge.net> - * generic/tclResult.c: [Bug 2383005] Revise [return -errorcode] so + * generic/tclResult.c: [Bug 2383005]: Revise [return -errorcode] so * tests/result.test: that it rejects illegal non-list values. 2010-03-20 Donal K. Fellows <dkf@users.sf.net> diff --git a/unix/tclUnixFCmd.c b/unix/tclUnixFCmd.c index c42c370..4812ad0 100644 --- a/unix/tclUnixFCmd.c +++ b/unix/tclUnixFCmd.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixFCmd.c,v 1.65.2.2 2009/11/25 14:31:40 stwo Exp $ + * RCS: @(#) $Id: tclUnixFCmd.c,v 1.65.2.3 2010/03/25 14:52:34 dkf Exp $ * * Portions of this code were derived from NetBSD source code which has the * following copyright notice: @@ -550,7 +550,7 @@ TclUnixCopyFile( { struct statfs fs; - if (fstatfs(srcFd, &fs, sizeof(fs), 0) == 0) { + if (fstatfs(srcFd, &fs) == 0) { blockSize = fs.f_bsize; } else { blockSize = 4096; |