Ticket #7719: port.tcl-patch

File port.tcl-patch, 1.9 KB (added by danielluke (Daniel J. Luke), 19 years ago)

Fix port outdated for direct mode

Line 
1Index: port.tcl
2===================================================================
3RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/port/port.tcl,v
4retrieving revision 1.156
5diff -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