summaryrefslogtreecommitdiffstats
path: root/library/platform/shell.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'library/platform/shell.tcl')
-rw-r--r--library/platform/shell.tcl14
1 files changed, 13 insertions, 1 deletions
diff --git a/library/platform/shell.tcl b/library/platform/shell.tcl
index 6c1be5d..b007666 100644
--- a/library/platform/shell.tcl
+++ b/library/platform/shell.tcl
@@ -26,8 +26,14 @@ proc ::platform::shell::generic {shell} {
LOCATE base out
set code {}
+ # Forget any pre-existing platform package, it might be in
+ # conflict with this one.
+ lappend code {package forget platform}
+ # Inject our platform package
lappend code [list source $base]
+ # Query and print the architecture
lappend code {puts [platform::generic]}
+ # And done
lappend code {exit 0}
set arch [RUN $shell [join $code \n]]
@@ -45,8 +51,14 @@ proc ::platform::shell::identify {shell} {
LOCATE base out
set code {}
+ # Forget any pre-existing platform package, it might be in
+ # conflict with this one.
+ lappend code {package forget platform}
+ # Inject our platform package
lappend code [list source $base]
+ # Query and print the architecture
lappend code {puts [platform::identify]}
+ # And done
lappend code {exit 0}
set arch [RUN $shell [join $code \n]]
@@ -221,4 +233,4 @@ proc ::platform::shell::DIR {} {
# ### ### ### ######### ######### #########
## Ready
-package provide platform::shell 1.1.2
+package provide platform::shell 1.1.3