[119760] users/cal/ports/macports/mpstats

[cal at macports.org]

Revision: 119760
          https://trac.macports.org/changeset/119760
Author:   cal at macports.org
Date:     2014-05-05 14:35:41 -0700 (Mon, 05 May 2014)
Log Message:
-----------
mpstats: update for trunk compatibility

Modified Paths:
--------------
    users/cal/ports/macports/mpstats/Portfile
    users/cal/ports/macports/mpstats/files/mpstats.tcl

Modified: users/cal/ports/macports/mpstats/Portfile
===================================================================
--- users/cal/ports/macports/mpstats/Portfile	2014-05-05 21:25:29 UTC (rev 119759)
+++ users/cal/ports/macports/mpstats/Portfile	2014-05-05 21:35:41 UTC (rev 119760)
@@ -3,7 +3,7 @@
 PortSystem          1.0
 
 name                mpstats
-version             0.1.3
+version             0.1.4
 categories          sysutils
 license             BSD
 platforms           darwin

Modified: users/cal/ports/macports/mpstats/files/mpstats.tcl
===================================================================
--- users/cal/ports/macports/mpstats/files/mpstats.tcl	2014-05-05 21:25:29 UTC (rev 119759)
+++ users/cal/ports/macports/mpstats/files/mpstats.tcl	2014-05-05 21:35:41 UTC (rev 119760)
@@ -1,5 +1,7 @@
-#!/usr/bin/tclsh
+#!/bin/sh
 # -*- 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
+# \
+if type -fp port-tclsh >/dev/null; then exec port-tclsh "$0" "$@"; else exec /usr/bin/tclsh "$0" "$@"; fi
 # $Id$
 #
 # Copyright (c) 2011,2013 The MacPorts Project
@@ -29,11 +31,13 @@
 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
 # OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
-set prefix /opt/local
+set prefix "@PREFIX@"
 
-if {[catch {source ${prefix}/share/macports/Tcl/macports1.0/macports_fastload.tcl} result]} {
-    puts stderr "Error: $result"
-    exit 1
+if {[file exists ${prefix}/share/macports/Tcl/macports1.0/macports_fastload.tcl]} {
+    if {[catch {source ${prefix}/share/macports/Tcl/macports1.0/macports_fastload.tcl} result]} {
+        puts stderr "Error: $result"
+        exit 1
+    }
 }
 
 package require macports
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140505/da46e6ee/attachment.html>