[66600] trunk/base/src/macports1.0/macports_fastload.tcl.in

[raimue at macports.org]

Revision: 66600
          http://trac.macports.org/changeset/66600
Author:   raimue at macports.org
Date:     2010-04-17 19:10:30 -0700 (Sat, 17 Apr 2010)
Log Message:
-----------
macports1.0/macports_fastload.tcl.in:
Avoid catch which masks any error, instead test if the file actually exists

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

Modified: trunk/base/src/macports1.0/macports_fastload.tcl.in
===================================================================
--- trunk/base/src/macports1.0/macports_fastload.tcl.in	2010-04-18 02:06:38 UTC (rev 66599)
+++ trunk/base/src/macports1.0/macports_fastload.tcl.in	2010-04-18 02:10:30 UTC (rev 66600)
@@ -74,11 +74,17 @@
 set sharetcldir "@macports_tcl_dir@"
 if {[file exists $sharetcldir]} {
     foreach dir [glob -directory $sharetcldir *] {
-        catch {source [file join $dir pkgIndex.tcl]}
+        set pkgindex [file join $dir pkgIndex.tcl]
+        if [file exists $pkgindex] {
+            source $pkgindex
+        }
     }
 }
 
 if { "@SQLITE3_TCL_DIR@" != "" } {
     set dir "@SQLITE3_TCL_DIR@"
-    catch {source [file join $dir pkgIndex.tcl]}
+    set pkgindex [file join $dir pkgIndex.tcl]
+    if [file exists $pkgindex] {
+        source $pkgindex
+    }
 }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100417/daf7598e/attachment.html>