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

[jmr at macports.org]

Revision: 86872
          http://trac.macports.org/changeset/86872
Author:   jmr at macports.org
Date:     2011-11-06 03:33:43 -0800 (Sun, 06 Nov 2011)
Log Message:
-----------
ask 'svn info' if file:// sources are working copies

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

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2011-11-06 10:02:08 UTC (rev 86871)
+++ trunk/base/src/macports1.0/macports.tcl	2011-11-06 11:33:43 UTC (rev 86872)
@@ -1973,8 +1973,10 @@
         switch -regexp -- [macports::getprotocol $source] {
             {^file$} {
                 set portdir [macports::getportdir $source]
-                if {[file exists $portdir/.svn]} {
-                    set svn_commandline "[macports::findBinary svn] update --non-interactive ${portdir}"
+                set svn_cmd ""
+                catch {set svn_cmd [macports::findBinary svn]}
+                if {$svn_cmd != "" && ([file exists $portdir/.svn] || ![catch {exec $svn_cmd info $portdir > /dev/null 2>@1}])} {
+                    set svn_commandline "$svn_cmd update --non-interactive ${portdir}"
                     ui_debug $svn_commandline
                     if {
                         [catch {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20111106/7a4be2bf/attachment.html>