Revision: 141273 https://trac.macports.org/changeset/141273 Author: ryandesign@macports.org Date: 2015-10-13 20:52:39 -0700 (Tue, 13 Oct 2015) Log Message: ----------- app-1.0.tcl: remove Tcl 8.4 workaround Modified Paths: -------------- trunk/dports/_resources/port1.0/group/app-1.0.tcl Modified: trunk/dports/_resources/port1.0/group/app-1.0.tcl =================================================================== --- trunk/dports/_resources/port1.0/group/app-1.0.tcl 2015-10-14 03:51:27 UTC (rev 141272) +++ trunk/dports/_resources/port1.0/group/app-1.0.tcl 2015-10-14 03:52:39 UTC (rev 141273) @@ -1,7 +1,7 @@ # -*- coding: utf-8; mode: tcl; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- vim:fenc=utf-8:ft=tcl:et:sw=4:ts=4:sts=4 # $Id$ # -# Copyright (c) 2011-2013 The MacPorts Project +# Copyright (c) 2011-2013, 2015 The MacPorts Project # All rights reserved. # # Redistribution and use in source and binary forms, with or without @@ -143,19 +143,7 @@ return [regsub -all -nocase {[^a-z0-9.-]} [join ${identifier} .] ""] } -# Implement our own lreverse proc, if it doesn't already exist. This will be -# the case on Tiger and Leopard which have Tcl 8.4; lreverse is new in Tcl 8.5. -# Taken from http://wiki.tcl.tk/17188 -if {[info commands lreverse] == ""} { - proc lreverse l { - set r {} - set i [llength $l] - while {[incr i -1]} {lappend r [lindex $l $i]} - lappend r [lindex $l 0] - } -} - platform macosx { pre-destroot { if {[tbool app.create]} {