From 271fffc150cb50e65b6e991a1aec414e0fffbd08 Mon Sep 17 00:00:00 2001 From: Julian Noble Date: Tue, 11 Nov 2025 13:57:34 +1100 Subject: [PATCH] fix bug in last commit for when punk::mix::templates fails to load --- src/bootsupport/modules/punk/mix-0.2.1.tm | 3 ++- src/modules/punk/mix-999999.0a1.0.tm | 3 ++- .../punk.project-0.1/src/bootsupport/modules/punk/mix-0.2.1.tm | 3 ++- .../punk.shell-0.1/src/bootsupport/modules/punk/mix-0.2.1.tm | 3 ++- 4 files changed, 8 insertions(+), 4 deletions(-) diff --git a/src/bootsupport/modules/punk/mix-0.2.1.tm b/src/bootsupport/modules/punk/mix-0.2.1.tm index 63cf0427..276a3fc3 100644 --- a/src/bootsupport/modules/punk/mix-0.2.1.tm +++ b/src/bootsupport/modules/punk/mix-0.2.1.tm @@ -20,6 +20,7 @@ tcl::namespace::eval punk::mix { } errTemplates]} { #emit a warning - but continue on without templates anyway. (punk::mix required to load when using bootsupport paths) puts stderr "punk::mix failed to load ZIP archive-based module punk::mix::templates\nUse a modern Tcl with zipfs, or a recent vfs::zip library\nError:$errTemplates" + puts stderr "Unable to register any template providers - continuing anyway" } else { set t [time { if {[catch {punk::mix::templates::provider register *} errM]} { @@ -29,8 +30,8 @@ tcl::namespace::eval punk::mix { puts stderr $::errorInfo } }] + puts stderr "->punk::mix::templates::provider register * t=$t" } - puts stderr "->punk::mix::templates::provider register * t=$t" } init } diff --git a/src/modules/punk/mix-999999.0a1.0.tm b/src/modules/punk/mix-999999.0a1.0.tm index df011c4d..56ec05fd 100644 --- a/src/modules/punk/mix-999999.0a1.0.tm +++ b/src/modules/punk/mix-999999.0a1.0.tm @@ -20,6 +20,7 @@ tcl::namespace::eval punk::mix { } errTemplates]} { #emit a warning - but continue on without templates anyway. (punk::mix required to load when using bootsupport paths) puts stderr "punk::mix failed to load ZIP archive-based module punk::mix::templates\nUse a modern Tcl with zipfs, or a recent vfs::zip library\nError:$errTemplates" + puts stderr "Unable to register any template providers - continuing anyway" } else { set t [time { if {[catch {punk::mix::templates::provider register *} errM]} { @@ -29,8 +30,8 @@ tcl::namespace::eval punk::mix { puts stderr $::errorInfo } }] + puts stderr "->punk::mix::templates::provider register * t=$t" } - puts stderr "->punk::mix::templates::provider register * t=$t" } init } diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix-0.2.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix-0.2.1.tm index 63cf0427..276a3fc3 100644 --- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix-0.2.1.tm +++ b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix-0.2.1.tm @@ -20,6 +20,7 @@ tcl::namespace::eval punk::mix { } errTemplates]} { #emit a warning - but continue on without templates anyway. (punk::mix required to load when using bootsupport paths) puts stderr "punk::mix failed to load ZIP archive-based module punk::mix::templates\nUse a modern Tcl with zipfs, or a recent vfs::zip library\nError:$errTemplates" + puts stderr "Unable to register any template providers - continuing anyway" } else { set t [time { if {[catch {punk::mix::templates::provider register *} errM]} { @@ -29,8 +30,8 @@ tcl::namespace::eval punk::mix { puts stderr $::errorInfo } }] + puts stderr "->punk::mix::templates::provider register * t=$t" } - puts stderr "->punk::mix::templates::provider register * t=$t" } init } diff --git a/src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/mix-0.2.1.tm b/src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/mix-0.2.1.tm index 63cf0427..276a3fc3 100644 --- a/src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/mix-0.2.1.tm +++ b/src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/mix-0.2.1.tm @@ -20,6 +20,7 @@ tcl::namespace::eval punk::mix { } errTemplates]} { #emit a warning - but continue on without templates anyway. (punk::mix required to load when using bootsupport paths) puts stderr "punk::mix failed to load ZIP archive-based module punk::mix::templates\nUse a modern Tcl with zipfs, or a recent vfs::zip library\nError:$errTemplates" + puts stderr "Unable to register any template providers - continuing anyway" } else { set t [time { if {[catch {punk::mix::templates::provider register *} errM]} { @@ -29,8 +30,8 @@ tcl::namespace::eval punk::mix { puts stderr $::errorInfo } }] + puts stderr "->punk::mix::templates::provider register * t=$t" } - puts stderr "->punk::mix::templates::provider register * t=$t" } init }