Revision: 86872 http://trac.macports.org/changeset/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: -------------- 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 {