Tcl Source Code

View Ticket
Bounty program for improvements to Tcl and certain Tcl packages.
Ticket UUID: f3ba57600d0b0f29d6d3f8e5d26c1f17a8594cdb
Title: Safe Source Alias noisy - works badly with package
Type: Bug Version: 8.6
Submitter: anonymous Created on: 2017-07-14 08:57:55
Subsystem: 33. Safe Base Assigned To: nobody
Priority: 5 Medium Severity: Minor
Status: Open Last Modified: 2017-07-14 08:57:55
Resolution: None Closed By: nobody
    Closed on:
safe.tcl line 670 reads:
	return -code error "no such file or directory"

Should read:
	return -code error -errorcode "POSIX EACCES" "no such file or directory"

Reason being, package.tcl expects that errorcode, else it bleats about not being able to load a pkgIndex.tcl file ... the Source Alias function in safe.tcl doesn't properly emulate native [source].