File _service:tar_scm:File-not-found-should-be-ignor... of Package tcl

File _service:tar_scm:File-not-found-should-be-ignored-silently.patch of Package tcl (Revision faaf188353aa3038a67e4436b8a1f970)

Currently displaying revision faaf188353aa3038a67e4436b8a1f970 , Show latest

From 00f8160e2d52e8df57744c3b02ddda3f8a65d149 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Sat, 24 Nov 2018 14:59:04 +0000
Subject: [PATCH] If a pkgIndex file is encountered which produces an error,
 continue. This shoud fix the Travis build for 9.0 (But same fix should be in
 8.7 as well)

---
 library/package.tcl | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/library/package.tcl b/library/package.tcl
index c72fbfbbe41..974cbf07956 100644
--- a/library/package.tcl
+++ b/library/package.tcl
@@ -493,7 +493,8 @@ proc tclPkgUnknown {name args} {
 			# $file was not readable; silently ignore
 			continue
 		    } on error msg {
-			tclLog "error reading package index file $file: $msg"
+			# $file is not usable; silently ignore
+			continue
 		    } on ok {} {
 			set procdDirs($dir) 1
 		    }
@@ -511,7 +512,8 @@ proc tclPkgUnknown {name args} {
 		    # $file was not readable; silently ignore
 		    continue
 		} on error msg {
-		    tclLog "error reading package index file $file: $msg"
+		    # $file is not usable; silently ignore
+		    continue
 		} on ok {} {
 		    set procdDirs($dir) 1
 		}
@@ -595,7 +597,8 @@ proc tcl::MacOSXPkgUnknown {original name args} {
 		    # $file was not readable; silently ignore
 		    continue
 		} on error msg {
-		    tclLog "error reading package index file $file: $msg"
+		    # $file is not usable; silently ignore
+		    continue
 		} on ok {} {
 		    set procdDirs($dir) 1
 		}