| 1 | Index: port.tcl |
|---|
| 2 | =================================================================== |
|---|
| 3 | RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/port/port.tcl,v |
|---|
| 4 | retrieving revision 1.156 |
|---|
| 5 | diff -u -r1.156 port.tcl |
|---|
| 6 | --- port.tcl 16 Feb 2006 20:28:17 -0000 1.156 |
|---|
| 7 | +++ port.tcl 11 Mar 2006 17:30:03 -0000 |
|---|
| 8 | @@ -552,6 +552,7 @@ |
|---|
| 9 | set results {} |
|---|
| 10 | if { [llength $ilist] > 0 } { |
|---|
| 11 | foreach i $ilist { |
|---|
| 12 | + global darwinports::registry.installtype |
|---|
| 13 | |
|---|
| 14 | # Get information about the installed port |
|---|
| 15 | set portname [lindex $i 0] |
|---|
| 16 | @@ -561,7 +562,9 @@ |
|---|
| 17 | set installed_variants [lindex $i 3] |
|---|
| 18 | |
|---|
| 19 | set is_active [lindex $i 4] |
|---|
| 20 | - if { $is_active == 0 } continue |
|---|
| 21 | + if { $is_active == 0 && 0 == [string compare "image" ${darwinports::registry.installtype}] } { |
|---|
| 22 | + continue |
|---|
| 23 | + } |
|---|
| 24 | set installed_epoch [lindex $i 5] |
|---|
| 25 | |
|---|
| 26 | # Get info about the port from the index |
|---|
| 27 | @@ -1566,6 +1569,7 @@ |
|---|
| 28 | puts "The following installed ports are outdated:" |
|---|
| 29 | |
|---|
| 30 | foreach i $ilist { |
|---|
| 31 | + global darwinports::registry.installtype |
|---|
| 32 | |
|---|
| 33 | # Get information about the installed port |
|---|
| 34 | set portname [lindex $i 0] |
|---|
| 35 | @@ -1574,7 +1578,7 @@ |
|---|
| 36 | set installed_compound "${installed_version}_${installed_revision}" |
|---|
| 37 | |
|---|
| 38 | set is_active [lindex $i 4] |
|---|
| 39 | - if { $is_active == 0 } { |
|---|
| 40 | + if { $is_active == 0 && 0 == [string compare "image" ${darwinports::registry.installtype}] } { |
|---|
| 41 | continue |
|---|
| 42 | } |
|---|
| 43 | set installed_epoch [lindex $i 5] |
|---|
| 44 | |
|---|
