jn
/
punkshell
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

punk::libunknown ensure source performed in global scope

master
Julian Noble 4 weeks ago
parent
8c71cd4c42
commit
b809905a99
2 changed files with 8 additions and 4 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 6
      src/bootsupport/modules/punk/libunknown-0.1.tm
  2. 6
      src/modules/punk/libunknown-0.1.tm

6
src/bootsupport/modules/punk/libunknown-0.1.tm
Unescape View File

@ -444,6 +444,8 @@ tcl::namespace::eval ::punk::libunknown {
proc zipfs_tclPkgUnknown {name args} {
#puts "-> zipfs_tclPkgUnknown $name $args EXPERIMENTAL"
global dir
variable epoch
set pkg_epoch [dict get $epoch pkg current]
@ -609,7 +611,7 @@ tcl::namespace::eval ::punk::libunknown {
incr sourced ;#count as sourced even if source fails; keep before actual source action
#::tcl::Pkg::source $file
#lappend sourced_files $file
tcl_Pkg_source $file
namespace eval :: [list ::punk::libunknown::tcl_Pkg_source $file]
} trap {POSIX EACCES} {} {
# $file was not readable; silently ignore
puts stderr "zipfs_tclPkgUnknown file unreadable '$file' while trying to load $name (1)"
@ -640,7 +642,7 @@ tcl::namespace::eval ::punk::libunknown {
incr sourced
#lappend sourced_files $file
#::tcl::Pkg::source $file
tcl_Pkg_source $file
namespace eval :: [list punk::libunknown::tcl_Pkg_source $file]
} trap {POSIX EACCES} {} {
# $file was not readable; silently ignore
puts stderr "zipfs_tclPkgUnknown file unreadable '$file' while trying to load $name (2)"

6
src/modules/punk/libunknown-0.1.tm
Unescape View File

@ -444,6 +444,8 @@ tcl::namespace::eval ::punk::libunknown {
proc zipfs_tclPkgUnknown {name args} {
#puts "-> zipfs_tclPkgUnknown $name $args EXPERIMENTAL"
global dir
variable epoch
set pkg_epoch [dict get $epoch pkg current]
@ -609,7 +611,7 @@ tcl::namespace::eval ::punk::libunknown {
incr sourced ;#count as sourced even if source fails; keep before actual source action
#::tcl::Pkg::source $file
#lappend sourced_files $file
tcl_Pkg_source $file
namespace eval :: [list ::punk::libunknown::tcl_Pkg_source $file]
} trap {POSIX EACCES} {} {
# $file was not readable; silently ignore
puts stderr "zipfs_tclPkgUnknown file unreadable '$file' while trying to load $name (1)"
@ -640,7 +642,7 @@ tcl::namespace::eval ::punk::libunknown {
incr sourced
#lappend sourced_files $file
#::tcl::Pkg::source $file
tcl_Pkg_source $file
namespace eval :: [list punk::libunknown::tcl_Pkg_source $file]
} trap {POSIX EACCES} {} {
# $file was not readable; silently ignore
puts stderr "zipfs_tclPkgUnknown file unreadable '$file' while trying to load $name (2)"

Write Preview
Loading…
Cancel
Save