Ticket #10785: upgrade_fix.patch

src/darwinports1.0/darwinports.tcl

@@ -1671 +1671 @@
 
         # install version_in_tree
         if {0 == [string compare "yes" ${darwinports::portarchivemode}]} {
-                set upgrade_action "unarchive"
+                set upgrade_action "archive"
         } else {
                 set upgrade_action "destroot"
         }

src/package1.0/portarchive.tcl

@@ -101 +101 @@
                         if {[catch {archiveTypeIsSupported ${archive.type}} errmsg] == 0} {
                                 set archive.file "${portname}-${portversion}_${portrevision}${portvariants}.[option os.arch].${archive.type}"
                                 set archive.path "[file join ${archive.destpath} ${archive.file}]"
+                                if {[file exists ${archive.path}${archive.file} } {
+                                        set skipped 1
+                                } else {
+                                        set skipped 0
+                                }
                         } else {
                                 ui_debug "Skipping [string toupper ${archive.type}] archive: $errmsg"
                                 set unsupported [expr $unsupported + 1]