Changeset 79170

Timestamp:

06/03/11 22:15:08 (4 years ago)

Author:

jmr@…

Message:

port_cutleaves: adapt to registry changes

File:

• contrib/port_cutleaves/port_cutleaves.in (modified) (1 diff)

contrib/port_cutleaves/port_cutleaves.in

@@ -259 +259 @@
         }
         if {[llength [info commands "registry_uninstall::uninstall"]] == 1} {
-            if {[catch {registry_uninstall::uninstall [name $port] [composite_version $port] {}} \
-                        result]} {
-                set exit_status 1
-                puts stderr "Error: $result"
-                continue
+            if {[llength [info commands "registry_uninstall::uninstall_composite"]] == 1} {
+                if {[catch {registry_uninstall::uninstall [name $port] [version $port] [revision $port] [variants $port] {}} \
+                            result]} {
+                    set exit_status 1
+                    puts stderr "Error: $result"
+                    continue
+                }
+            } else {
+                if {[catch {registry_uninstall::uninstall [name $port] [composite_version $port] {}} \
+                            result]} {
+                    set exit_status 1
+                    puts stderr "Error: $result"
+                    continue
+                }
             }
         } elseif {[catch {portuninstall::uninstall [name $port] [composite_version $port] {}} \