Changeset 82535

Timestamp:

08/15/11 05:47:38 (4 years ago)

Author:

ryandesign@…

Message:

app-1.0.tcl: app.identifier: strip periods in app.name portion; strip illegal chars everywhere

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}]
-    lappend identifier [regsub -all -nocase {[^a-z0-9.-]} ${app.name} "-"]
-    return [join ${identifier} .]
+    lappend identifier [string map {"." ""} ${app.name}]
+    return [regsub -all -nocase {[^a-z0-9.-]} [join ${identifier} .] ""]
 }