diff --git a/src/bootsupport/modules/punk/ansi-0.1.1.tm b/src/bootsupport/modules/punk/ansi-0.1.1.tm index 04767a22..45f53981 100644 --- a/src/bootsupport/modules/punk/ansi-0.1.1.tm +++ b/src/bootsupport/modules/punk/ansi-0.1.1.tm @@ -681,12 +681,16 @@ tcl::namespace::eval punk::ansi { } set opt_crm_mode [dict get $opts -crm_mode] - #if SAUCE data is present - it may give an indication of encoding as well as number of columns/lines - package require punk::ansi::sauce set binarytext "" - if {[catch {punk::ansi::sauce::from_file $fname} sdict]} { - #no 128 Byte SAUCE record at end of file - set sdict [dict create] + set sdict [dict create] + #if SAUCE data is present - it may give an indication of encoding as well as number of columns/lines + if {![catch {package require punk::ansi::sauce}]} { + if {[catch {punk::ansi::sauce::from_file $fname} sdict]} { + #no 128 Byte SAUCE record at end of file + set sdict [dict create] + } + } else { + puts stderr "Warning punk::ansi::sauce package not loaded - unable to detect or use any SAUCE data to aid in display" } if {![dict size $sdict]} { if {[string tolower [file extension $fname]] eq ".bin"} { diff --git a/src/modules/punk/ansi-999999.0a1.0.tm b/src/modules/punk/ansi-999999.0a1.0.tm index 5d43253e..fde23a3e 100644 --- a/src/modules/punk/ansi-999999.0a1.0.tm +++ b/src/modules/punk/ansi-999999.0a1.0.tm @@ -681,12 +681,16 @@ tcl::namespace::eval punk::ansi { } set opt_crm_mode [dict get $opts -crm_mode] - #if SAUCE data is present - it may give an indication of encoding as well as number of columns/lines - package require punk::ansi::sauce set binarytext "" - if {[catch {punk::ansi::sauce::from_file $fname} sdict]} { - #no 128 Byte SAUCE record at end of file - set sdict [dict create] + set sdict [dict create] + #if SAUCE data is present - it may give an indication of encoding as well as number of columns/lines + if {![catch {package require punk::ansi::sauce}]} { + if {[catch {punk::ansi::sauce::from_file $fname} sdict]} { + #no 128 Byte SAUCE record at end of file + set sdict [dict create] + } + } else { + puts stderr "Warning punk::ansi::sauce package not loaded - unable to detect or use any SAUCE data to aid in display" } if {![dict size $sdict]} { if {[string tolower [file extension $fname]] eq ".bin"} {