Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:rhabacker:linkedprojecttest
mingw32-tcl
tcl.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File tcl.patch of Package mingw32-tcl
--- library/init.tcl +++ library/init.tcl @@ -53,11 +53,6 @@ namespace eval tcl { lappend ::auto_path $Dir } } - set Dir [file join [file dirname [file dirname \ - [info nameofexecutable]]] lib] - if {$Dir ni $::auto_path} { - lappend ::auto_path $Dir - } if {[info exists ::tcl_pkgPath]} { catch { foreach Dir $::tcl_pkgPath { if {$Dir ni $::auto_path} { --- library/tm.tcl +++ library/tm.tcl @@ -310,10 +310,7 @@ proc ::tcl::tm::Defaults {} { # Note that we're using [::list], not [list] because [list] means # something other than [::list] in this namespace. - roots [::list \ - [file dirname [info library]] \ - [file join [file dirname [file dirname $exe]] lib] \ - ] + roots [lreverse $::tcl_pkgPath] if {$tcl_platform(platform) eq "windows"} { set sep ";"
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
