[46983] trunk/base/src/upgrade_sources_conf_default.tcl

[blb at macports.org]

Revision: 46983
          http://trac.macports.org/changeset/46983
Author:   blb at macports.org
Date:     2009-02-18 19:30:49 -0800 (Wed, 18 Feb 2009)
Log Message:
-----------
upgrade_sources_conf_default.tcl - wrap calling svn in a catch so we can be more graceful, ticket #17635

Modified Paths:
--------------
    trunk/base/src/upgrade_sources_conf_default.tcl

Modified: trunk/base/src/upgrade_sources_conf_default.tcl
===================================================================
--- trunk/base/src/upgrade_sources_conf_default.tcl	2009-02-19 03:03:12 UTC (rev 46982)
+++ trunk/base/src/upgrade_sources_conf_default.tcl	2009-02-19 03:30:49 UTC (rev 46983)
@@ -41,8 +41,7 @@
          } elseif {[regexp {rsync://rsync\.(macports|darwinports)\.org/(release|dpupdate)/d?ports} $url]} {
             set addDefault true
          } elseif {[regexp {file://(/.+)} $url -> filepath]} {
-            if {[file exists [file join ${filepath} .svn]]} {
-               set svnChannel [open "|svn info ${filepath}" r]
+            if {[file exists [file join ${filepath} .svn]] && ![catch {set svnChannel [open "|svn info ${filepath}" r]}]} {
                set svnURL {}
                while {[gets $svnChannel svnLine] >= 0} {
                   regexp {^URL: (.*)} $svnLine -> svnURL
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090218/629168d4/attachment.html>