scriptlib/stdout_per_second.tcl

2 weeks ago · 8cc68238a0
1 changed files with 4 additions and 1 deletions
--- a/scriptlib/stdout_per_second.tcl
+++ b/scriptlib/stdout_per_second.tcl
@ -72,7 +72,10 @@ proc emit {} {

 set original_config [chan configure stdin]
 chan configure stdin -blocking 0 -buffering none
-catch {chan configure stdin -inputmode raw}
+if {[catch {chan configure stdin -inputmode raw} errM]} {
+    package require punk::console
+    punk::console::enableRaw
+}
 variable ::cmdbuffer ""
 chan event stdin readable [list apply {{chan} {
    upvar ::cmdbuffer b