debug make.tcl

src/make.tcl

@@ -1481,12 +1481,12 @@ if {$::punkboot::command eq "check"} {
         }
     }
     flush stdout
-    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]
     foreach pkg_request [dict get $::punkboot::pkg_availability loaded] {
         lassign $pkg_request pkgname vrequest
         package require $pkgname {*}$vrequest ;#todo?
     }
-    flush stderr 
+    flush stderr
     #punk::lib::showdict -channel stderr $::punkboot::pkg_availability
     set missing_out [::punkboot::get_display_missing_packages $::punkboot::pkg_availability] 
     puts stdout $missing_out\n
@@ -1563,10 +1563,13 @@ if {$::punkboot::command eq "check"} {
             #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] {
         lassign $pkg_request pkgname vrequest
-        catch {package require $pkgname {*}$vrequest} ;#todo
+        if {[catch {package require $pkgname {*}$vrequest} errM]} {
+            puts stderr "failed to load $pkgname\n  - $errM"
+        }
     }
     flush stderr 
     #punk::lib::showdict -channel stderr $::punkboot::pkg_availability