diff options
| author | Steve Bennett <steveb@workware.net.au> | 2012-02-10 13:29:39 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2012-02-10 13:29:39 +1000 |
| commit | d8d8ed7b09d0bcd0070828e0204f6395215cd086 (patch) | |
| tree | 66c978b94db2fab78ed6c32ee822877992a4d1b2 /tclcompat.tcl | |
| parent | 4adf7e3abd33471672488e121dc1c4f32dc65b00 (diff) | |
| download | jimtcl-d8d8ed7b09d0bcd0070828e0204f6395215cd086.zip jimtcl-d8d8ed7b09d0bcd0070828e0204f6395215cd086.tar.gz jimtcl-d8d8ed7b09d0bcd0070828e0204f6395215cd086.tar.bz2 | |
Sense of fconfigure ... -blocking is reversed
We implement fconfigure -blocking via $sock ndelay, but
the sense of ndelay is the reverse of -blocking
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tclcompat.tcl')
| -rw-r--r-- | tclcompat.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tclcompat.tcl b/tclcompat.tcl index d0a0201..21c3922 100644 --- a/tclcompat.tcl +++ b/tclcompat.tcl @@ -40,7 +40,7 @@ if {[info commands stdout] ne ""} { foreach {n v} $args { switch -glob -- $n { -bl* { - $f ndelay $v + $f ndelay $(!$v) } -bu* { $f buffering $v |