[109307] branches/gsoc13-tests/src/macports1.0/macports.tcl

[marius at macports.org]

Revision: 109307
          https://trac.macports.org/changeset/109307
Author:   marius at macports.org
Date:     2013-08-12 12:24:55 -0700 (Mon, 12 Aug 2013)
Log Message:
-----------
macports.tcl: fixed archive path

Modified Paths:
--------------
    branches/gsoc13-tests/src/macports1.0/macports.tcl

Modified: branches/gsoc13-tests/src/macports1.0/macports.tcl
===================================================================
--- branches/gsoc13-tests/src/macports1.0/macports.tcl	2013-08-12 19:00:18 UTC (rev 109306)
+++ branches/gsoc13-tests/src/macports1.0/macports.tcl	2013-08-12 19:24:55 UTC (rev 109307)
@@ -1428,7 +1428,7 @@
     # extract the portfile (and possibly files dir if not a binary archive)
     ui_debug "extracting port archive to [pwd]"
     if {$binary} {
-        set cmdline "$tarcmd ${tarflags}${qflag}xOf \"$fetchfile\" +PORTFILE > Portfile"
+        set cmdline "$tarcmd ${tarflags}${qflag}xOf ..\"$fetchfile\" +PORTFILE > Portfile"
     } else {
         set cmdline "$tarcmd ${tarflags}xf \"$fetchfile\""
     }
@@ -1554,14 +1554,11 @@
     # Look for an already-open MPort with the same URL.
     # if found, return the existing reference and bump the refcount.
     if {$nocache != ""} {
-puts #
         set mport {}
     } else {
-puts ##
         set mport [dlist_match_multi $macports::open_mports [list porturl $porturl variations $variations options $options]]
     }
     if {$mport != {}} {
-puts ###
         # just in case more than one somehow matches
         set mport [lindex $mport 0]
         set refcnt [ditem_key $mport refcnt]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130812/853570df/attachment.html>