Mercurial > flash_v2
diff packages/ecosadmin.tcl @ 160:0d0f03f76f6a
Merge from eCos master repository on 2001-06-01-18:52:13-BST
| author | jlarmour |
|---|---|
| date | Fri, 01 Jun 2001 22:16:29 +0000 |
| parents | b939e9cada46 |
| children | e0c0827131d1 |
line wrap: on
line diff
--- a/packages/ecosadmin.tcl +++ b/packages/ecosadmin.tcl @@ -597,14 +597,15 @@ proc ecosadmin::read_data { } { set pkgdir [file join $ecosadmin::component_repository $ecosadmin::package_data($pkg,dir)] if { ![file exists $pkgdir] || ![file isdir $pkgdir] } { - fatal_error "package $pkg at $pkgdir missing" - } + warning "package $pkg at $pkgdir missing" + } else { - # Each subdirectory should correspond to a release. A utility routine - # is available for this. - set ecosadmin::package_data($pkg,versions) [locate_subdirs $pkgdir] - if { $ecosadmin::package_data($pkg,versions) == "" } { - fatal_error "package $pkg has no version directories" + # Each subdirectory should correspond to a release. A utility routine + # is available for this. + set ecosadmin::package_data($pkg,versions) [locate_subdirs $pkgdir] + if { $ecosadmin::package_data($pkg,versions) == "" } { + fatal_error "package $pkg has no version directories" + } } # Sort all the versions using a version-aware comparison version