diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-02-18 21:27:35 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-02-18 21:27:35 (GMT) |
| commit | 9afa8a13e86fbd71a030ead7909cbe7d7db76296 (patch) | |
| tree | 9015e661bca850c275c8b3a6007d9eb37c934f5b /generic/tclIO.c | |
| parent | 997ad71bccf25cf78178d99b5bd94103ef365e4d (diff) | |
| download | tcl-9afa8a13e86fbd71a030ead7909cbe7d7db76296.zip tcl-9afa8a13e86fbd71a030ead7909cbe7d7db76296.tar.gz tcl-9afa8a13e86fbd71a030ead7909cbe7d7db76296.tar.bz2 | |
Another coverage test that reveals refactoring error.
Diffstat (limited to 'generic/tclIO.c')
| -rw-r--r-- | generic/tclIO.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 4197dc0..c862923 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -8880,10 +8880,10 @@ CopyAndTranslateBuffer( * If there is a held-back "\r" at EOF, produce it now. */ - Tcl_Panic("Untested"); if (bytesInBuffer == 0) { if ((statePtr->flags & (INPUT_SAW_CR | CHANNEL_EOF)) == (INPUT_SAW_CR | CHANNEL_EOF)) { + Tcl_Panic("Untested"); result[0] = '\r'; ResetFlag(statePtr, INPUT_SAW_CR); return 1; |