[32170] trunk/base/src/macports1.0/macports.tcl

[jmpp at macports.org]

Revision: 32170
          http://trac.macosforge.org/projects/macports/changeset/32170
Author:   jmpp at macports.org
Date:     2007-12-18 16:17:14 -0800 (Tue, 18 Dec 2007)

Log Message:
-----------

Simplify the macports::version proc by use of the $macports::autoconf::macports_version variable (also remove some globals that weren't necessary in any case).

Modified Paths:
--------------
    trunk/base/src/macports1.0/macports.tcl

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2007-12-18 23:53:32 UTC (rev 32169)
+++ trunk/base/src/macports1.0/macports.tcl	2007-12-19 00:17:14 UTC (rev 32170)
@@ -1714,19 +1714,10 @@
 }
 
 proc macports::version {} {
-    global macports::rsync_server macports::rsync_dir
-    global macports::autoconf::macports_conf_path
+    global macports::autoconf::macports_version
     
-    set mp_version_path [file join ${macports_conf_path} mp_version]
+    return $macports::autoconf::macports_version
 
-    if [file exists $mp_version_path] {
-        set fd [open $mp_version_path r]
-        gets $fd retval
-        close $fd
-        return $retval
-    } else {
-        return -1
-    }
 }
 
 # upgrade procedure

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20071218/354c0fa6/attachment-0001.html