fix sauce COMNT for tcl 8.6

src/bootsupport/modules/punk/ansi/sauce-0.1.0.tm

@@ -79,11 +79,9 @@ tcl::namespace::eval punk::ansi::sauce {
                 set commentlines [list]
                 for {set c 0} {$c < $clines} {incr c} {
                     set rawline [chan read $fd 64]
-                    if {![catch {binary scan $rawline C* str} errM]} {
+                    set str [lib::get_string $rawline]
-                        set ln [format %-64s $str]
+                    set ln [format %-64s $str]
-                    } else {
+
-                        set ln [string repeat " " 64]
-                    }
                     if {![catch {encoding convertfrom cp437 $ln} line]} {
                         lappend commentlines $line
                     } else {

src/modules/punk/ansi/sauce-999999.0a1.0.tm

@@ -79,11 +79,9 @@ tcl::namespace::eval punk::ansi::sauce {
                 set commentlines [list]
                 for {set c 0} {$c < $clines} {incr c} {
                     set rawline [chan read $fd 64]
-                    if {![catch {binary scan $rawline C* str} errM]} {
+                    set str [lib::get_string $rawline]
-                        set ln [format %-64s $str]
+                    set ln [format %-64s $str]
-                    } else {
+
-                        set ln [string repeat " " 64]
-                    }
                     if {![catch {encoding convertfrom cp437 $ln} line]} {
                         lappend commentlines $line
                     } else {