summaryrefslogtreecommitdiffstats
path: root/library/platform
diff options
context:
space:
mode:
Diffstat (limited to 'library/platform')
-rw-r--r--library/platform/pkgIndex.tcl2
-rw-r--r--library/platform/platform.tcl6
2 files changed, 4 insertions, 4 deletions
diff --git a/library/platform/pkgIndex.tcl b/library/platform/pkgIndex.tcl
index a63f4aa..0b69432 100644
--- a/library/platform/pkgIndex.tcl
+++ b/library/platform/pkgIndex.tcl
@@ -1,3 +1,3 @@
-package ifneeded platform 1.0.4 [list source [file join $dir platform.tcl]]
+package ifneeded platform 1.0.5 [list source [file join $dir platform.tcl]]
package ifneeded platform::shell 1.1.4 [list source [file join $dir shell.tcl]]
diff --git a/library/platform/platform.tcl b/library/platform/platform.tcl
index b42c419..1a454cd 100644
--- a/library/platform/platform.tcl
+++ b/library/platform/platform.tcl
@@ -103,7 +103,7 @@ proc ::platform::generic {} {
}
sunos {
set plat solaris
- if {$cpu ne "ia64"} {
+ if {![string match "ia64*" $cpu]} {
if {$tcl_platform(wordSize) == 8} {
append cpu 64
}
@@ -127,7 +127,7 @@ proc ::platform::generic {} {
}
hp-ux {
set plat hpux
- if {$cpu ne "ia64"} {
+ if {![string match "ia64*" $cpu]} {
set cpu parisc
if {$tcl_platform(wordSize) == 8} {
append cpu 64
@@ -289,7 +289,7 @@ proc ::platform::patterns {id} {
# ### ### ### ######### ######### #########
## Ready
-package provide platform 1.0.4
+package provide platform 1.0.5
# ### ### ### ######### ######### #########
## Demo application