Ticket #31644: patch-macports.tcl.diff

macports1.0/macports.tcl

@@ -1973 +1973 @@
         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_command [macports::findBinary svn]
+                if {[catch {exec ${svn_command} info ${portdir}}] == 0} {
+                    set svn_commandline "${svn_command} update --non-interactive ${portdir}"
                     ui_debug $svn_commandline
                     if {
                         [catch {