Revision
86872
Author
jmr@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

Diff

Modified: trunk/base/src/macports1.0/macports.tcl (86871 => 86872)


--- 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 {