From 8cc68238a0117f9e8172690429709d3218d0f274 Mon Sep 17 00:00:00 2001
From: Julian Noble <julian@precisium.com.au>
Date: Wed, 1 Oct 2025 17:49:00 +1000
Subject: [PATCH] scriptlib/stdout_per_second.tcl

---
 scriptlib/stdout_per_second.tcl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/scriptlib/stdout_per_second.tcl b/scriptlib/stdout_per_second.tcl
index e55947c0..2d4d3ccc 100644
--- 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