Changeset 82536

Timestamp:

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

Author:

ryandesign@…

Message:

app-1.0.tcl: app.identifier: also include the path portion of the homepage

File:

• trunk/dports/_resources/port1.0/group/app-1.0.tcl (modified) (1 diff)

trunk/dports/_resources/port1.0/group/app-1.0.tcl

@@ -135 +135 @@
     }
     set identifier [lreverse ${identifier}]
+    set identifier [concat ${identifier} [lrange [split ${homepage} "/"] 3 end]]
+    if {[lindex ${identifier} end] == ""} {
+        set identifier [lrange ${identifier} 0 end-1]
+    }
     lappend identifier [string map {"." ""} ${app.name}]
     return [regsub -all -nocase {[^a-z0-9.-]} [join ${identifier} .] ""]