diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-07-12 16:15:22 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-07-12 16:15:22 (GMT) |
commit | 985b5f8a7463d8ef8400d49bceb87b402ed70e59 (patch) | |
tree | 488c380d0ec7f4f0e06a4eda59cfddabf2bcc0e3 /generic/tclIORTrans.c | |
parent | 7bea42569d8c2ccb8584155f706392d5812ec428 (diff) | |
parent | 74d71bafde63ca49cecadc990df7b3a2d7797849 (diff) | |
download | tcl-985b5f8a7463d8ef8400d49bceb87b402ed70e59.zip tcl-985b5f8a7463d8ef8400d49bceb87b402ed70e59.tar.gz tcl-985b5f8a7463d8ef8400d49bceb87b402ed70e59.tar.bz2 |
merge trunkbug_d5ddbc7f49
Diffstat (limited to 'generic/tclIORTrans.c')
-rw-r--r-- | generic/tclIORTrans.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIORTrans.c b/generic/tclIORTrans.c index d2707a1..45ee08d 100644 --- a/generic/tclIORTrans.c +++ b/generic/tclIORTrans.c @@ -3178,7 +3178,7 @@ TransformWrite( } if (res < 0) { - *errorCodePtr = EINVAL; + *errorCodePtr = Tcl_GetErrno(); return 0; } @@ -3288,7 +3288,7 @@ TransformFlush( } if (res < 0) { - *errorCodePtr = EINVAL; + *errorCodePtr = Tcl_GetErrno(); return 0; } |