diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-07-24 17:19:28 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-07-24 17:19:28 (GMT) |
| commit | 938780a181842a5f7dfcd17eec986d342256cdb4 (patch) | |
| tree | 34f3d38a39575c27feb42b9f023171069d8b3c38 | |
| parent | de9c0d8432dc3afcfc1d0442c602f42983c134ca (diff) | |
| parent | 369c6f29cb094e06083a203dfd622b21fc9eb226 (diff) | |
| download | tcl-938780a181842a5f7dfcd17eec986d342256cdb4.zip tcl-938780a181842a5f7dfcd17eec986d342256cdb4.tar.gz tcl-938780a181842a5f7dfcd17eec986d342256cdb4.tar.bz2 | |
merge trunk
| -rw-r--r-- | tests/ioCmd.test | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/ioCmd.test b/tests/ioCmd.test index dcca1f5..57f8d47 100644 --- a/tests/ioCmd.test +++ b/tests/ioCmd.test @@ -2748,10 +2748,9 @@ test iocmd.tf-24.17.bug3522560 {postevent for transfered channel} \ init* {set ret {initialize finalize watch read}} watch { set l [lindex $args 0] + catch {after cancel $::timer} if {[llength $l]} { set ::timer [after $::drive [list POST $ch]] - } else { - after cancel $::timer } } finalize { |