Browse Source

fix string is dict fallback in punk::args for 8.6

master
Julian Noble 1 month ago
parent
commit
2f0e739459
  1. 2
      src/bootsupport/modules/punk/args-0.2.tm
  2. 2
      src/modules/punk/args-999999.0a1.0.tm
  3. 2
      src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/args-0.2.tm
  4. 2
      src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/args-0.2.tm
  5. 2
      src/vfs/_vfscommon.vfs/modules/punk/args-0.2.tm

2
src/bootsupport/modules/punk/args-0.2.tm

@ -9444,7 +9444,7 @@ tcl::namespace::eval punk::args::lib {
proc string_is_dict {args} { proc string_is_dict {args} {
#ignore opts #ignore opts
set str [lindex $args end] set str [lindex $args end]
if {[catch {[llength $str] len}]} { if {[catch {llength $str} len]} {
return 0 return 0
} }
if {$len % 2 == 0} { if {$len % 2 == 0} {

2
src/modules/punk/args-999999.0a1.0.tm

@ -9444,7 +9444,7 @@ tcl::namespace::eval punk::args::lib {
proc string_is_dict {args} { proc string_is_dict {args} {
#ignore opts #ignore opts
set str [lindex $args end] set str [lindex $args end]
if {[catch {[llength $str] len}]} { if {[catch {llength $str} len]} {
return 0 return 0
} }
if {$len % 2 == 0} { if {$len % 2 == 0} {

2
src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/args-0.2.tm

@ -9444,7 +9444,7 @@ tcl::namespace::eval punk::args::lib {
proc string_is_dict {args} { proc string_is_dict {args} {
#ignore opts #ignore opts
set str [lindex $args end] set str [lindex $args end]
if {[catch {[llength $str] len}]} { if {[catch {llength $str} len]} {
return 0 return 0
} }
if {$len % 2 == 0} { if {$len % 2 == 0} {

2
src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/args-0.2.tm

@ -9444,7 +9444,7 @@ tcl::namespace::eval punk::args::lib {
proc string_is_dict {args} { proc string_is_dict {args} {
#ignore opts #ignore opts
set str [lindex $args end] set str [lindex $args end]
if {[catch {[llength $str] len}]} { if {[catch {llength $str} len]} {
return 0 return 0
} }
if {$len % 2 == 0} { if {$len % 2 == 0} {

2
src/vfs/_vfscommon.vfs/modules/punk/args-0.2.tm

@ -9444,7 +9444,7 @@ tcl::namespace::eval punk::args::lib {
proc string_is_dict {args} { proc string_is_dict {args} {
#ignore opts #ignore opts
set str [lindex $args end] set str [lindex $args end]
if {[catch {[llength $str] len}]} { if {[catch {llength $str} len]} {
return 0 return 0
} }
if {$len % 2 == 0} { if {$len % 2 == 0} {

Loading…
Cancel
Save