Browse Source

src/make.tcl debugging

master
Julian Noble 4 weeks ago
parent
commit
ef41b6d452
  1. 5
      src/make.tcl

5
src/make.tcl

@ -1563,12 +1563,11 @@ if {$::punkboot::command eq "check"} {
#puts stdout " $fld (not present)" #puts stdout " $fld (not present)"
} }
} }
#set ::punkboot::pkg_availability [::punkboot::check_package_availability -quiet 1 $::punkboot::bootsupport_requirements] set ::punkboot::pkg_availability [::punkboot::check_package_availability -quiet 1 $::punkboot::bootsupport_requirements]
set ::punkboot::pkg_availability [::punkboot::check_package_availability -quiet 0 $::punkboot::bootsupport_requirements]
foreach pkg_request [dict get $::punkboot::pkg_availability loaded] { foreach pkg_request [dict get $::punkboot::pkg_availability loaded] {
lassign $pkg_request pkgname vrequest lassign $pkg_request pkgname vrequest
if {[catch {package require $pkgname {*}$vrequest} errM]} { if {[catch {package require $pkgname {*}$vrequest} errM]} {
puts stderr "failed to load $pkgname\n - $errM" puts stderr "failed to load $pkgname\n - $errM\n - $::errorInfo"
} }
} }
flush stderr flush stderr

Loading…
Cancel
Save