Ignore:
Timestamp:
Oct 14, 2015, 3:52:39 AM (3 years ago)
Author:
ryandesign@…
Message:

app-1.0.tcl: remove Tcl 8.4 workaround

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/dports/_resources/port1.0/group/app-1.0.tcl

    r113311 r141273  
    22# $Id$
    33#
    4 # Copyright (c) 2011-2013 The MacPorts Project
     4# Copyright (c) 2011-2013, 2015 The MacPorts Project
    55# All rights reserved.
    66#
     
    142142    lappend identifier [string map {"." ""} ${app.name}]
    143143    return [regsub -all -nocase {[^a-z0-9.-]} [join ${identifier} .] ""]
    144 }
    145 
    146 # Implement our own lreverse proc, if it doesn't already exist. This will be
    147 # the case on Tiger and Leopard which have Tcl 8.4; lreverse is new in Tcl 8.5.
    148 # Taken from http://wiki.tcl.tk/17188
    149 if {[info commands lreverse] == ""} {
    150     proc lreverse l {
    151         set r {}
    152         set i [llength $l]
    153         while {[incr i -1]} {lappend r [lindex $l $i]}
    154         lappend r [lindex $l 0]
    155     }
    156144}
    157145
Note: See TracChangeset for help on using the changeset viewer.