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

[ryandesign at macports.org]

Revision: 141273
          https://trac.macports.org/changeset/141273
Author:   ryandesign at 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]} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20151013/7406fa59/attachment.html>