diff --git a/src/deps/dictutils-0.2.tm b/src/deps/dictutils-0.2.tm index 42c14249..154042e0 100644 --- a/src/deps/dictutils-0.2.tm +++ b/src/deps/dictutils-0.2.tm @@ -7,7 +7,7 @@ # License: http://www.cs.nott.ac.uk/~nem/license.terms (Tcl-style). # - package require Tcl 8.6 + package require Tcl 8.6- package provide dictutils 0.2 namespace eval dictutils { diff --git a/src/modules/overtype-1.4.tm b/src/modules/overtype-1.4.tm index df63ddad..74d8698d 100644 --- a/src/modules/overtype-1.4.tm +++ b/src/modules/overtype-1.4.tm @@ -1,5 +1,3 @@ -package provide [lassign {overtype 1.4} pkg ver]$pkg [namespace eval $pkg[set pkg {}] {list [variable version $ver[set ver {}]]$version}] - #Julian Noble - 2003 #Released under standard 'BSD license' conditions. # @@ -178,3 +176,13 @@ proc overtype::right {args} { namespace eval overtype { interp alias {} ::overtype::center {} ::overtype::centre } + +#breaks in tcl9 due to variable scoping change (fix of 'creative writing' problem) +#package provide [lassign {overtype 1.4} pkg ver]$pkg [namespace eval $pkg[set pkg {}] {list [variable version $ver[set ver {}]]$version}] + + +package provide overtype [namespace eval overtype { + variable version + set version 1.4 +}] + diff --git a/src/modules/punk/mix/templates/module/module_clitemplate-0.0.1.tm b/src/modules/punk/mix/templates/module/module_clitemplate-0.0.1.tm index 56c9ce52..0654625e 100644 --- a/src/modules/punk/mix/templates/module/module_clitemplate-0.0.1.tm +++ b/src/modules/punk/mix/templates/module/module_clitemplate-0.0.1.tm @@ -1,8 +1,4 @@ -package provide punk::clitemplate [namespace eval punk::clitemplate { - variable version - set version 0.1 - -}] + namespace eval punk::clitemplate { proc runcli {args} { @@ -61,6 +57,9 @@ namespace eval punk::clitemplate::clicommands { } +} - -} \ No newline at end of file +package provide punk::clitemplate [namespace eval punk::clitemplate { + variable version + set version 0.1 +}] diff --git a/src/modules/punk/overlay-0.1.tm b/src/modules/punk/overlay-0.1.tm index 7eb01a59..e8d1d026 100644 --- a/src/modules/punk/overlay-0.1.tm +++ b/src/modules/punk/overlay-0.1.tm @@ -1,6 +1,5 @@ -package provide [lindex [list [set ver [join [lassign [split [ file tail [file rootname [info script] ]] -] pkg] -]] $pkg] 1]\ - [namespace eval $pkg[unset pkg] {list [variable version $ver[unset ver]]$version}] + #package provide [lassign {overtype 1.4} pkg ver]$pkg [namespace eval $pkg[set pkg {}] {list [variable version $ver[set ver {}]]$version}] @@ -60,3 +59,12 @@ namespace eval ::punk::overlay { return $routine } } + +##breaks in tcl9 due to variable scoping change +#package provide [lindex [list [set ver [join [lassign [split [ file tail [file rootname [info script] ]] -] pkg] -]] $pkg] 1]\ +# [namespace eval $pkg[unset pkg] {list [variable version $ver[unset ver]]$version}] + +package provide punk::overlay [namespace eval punk::overlay { + variable version + set version 0.1 +}]