summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2007-03-05 23:28:25 (GMT)
committerandreas_kupries <akupries@shaw.ca>2007-03-05 23:28:25 (GMT)
commit46c5f7a817b9e5508cde166112d355998c8213dc (patch)
treea44f7c3f3374b976cde326914120ea1697ec91f6 /library
parentbbbcdcbdfc1d81b58a3bd8234b3494b598184c3b (diff)
downloadtcl-46c5f7a817b9e5508cde166112d355998c8213dc.zip
tcl-46c5f7a817b9e5508cde166112d355998c8213dc.tar.gz
tcl-46c5f7a817b9e5508cde166112d355998c8213dc.tar.bz2
* library/platform/shell.tcl (::platform::shell::RUN): In the case
* library/platform/pkgIndex.tcl: of a failure put the captured stderr * unix/Makefile.in: into the error message to aid in debugging. Bumped * win/Makefile.in: package version to 1.1.2, and updated the makefiles installing it as Tcl Module.
Diffstat (limited to 'library')
-rw-r--r--library/platform/pkgIndex.tcl2
-rw-r--r--library/platform/shell.tcl10
2 files changed, 7 insertions, 5 deletions
diff --git a/library/platform/pkgIndex.tcl b/library/platform/pkgIndex.tcl
index 25f24d9..e38e770 100644
--- a/library/platform/pkgIndex.tcl
+++ b/library/platform/pkgIndex.tcl
@@ -1,3 +1,3 @@
package ifneeded platform 1.0.2 [list source [file join $dir platform.tcl]]
-package ifneeded platform::shell 1.1.1 [list source [file join $dir shell.tcl]]
+package ifneeded platform::shell 1.1.2 [list source [file join $dir shell.tcl]]
diff --git a/library/platform/shell.tcl b/library/platform/shell.tcl
index 3c2981c..6c1be5d 100644
--- a/library/platform/shell.tcl
+++ b/library/platform/shell.tcl
@@ -77,7 +77,7 @@ proc ::platform::shell::CHECK {shell} {
return -code error "Shell \"$shell\" does not exist"
}
if {![file executable $shell]} {
- return -code error "Shell \"$shell\" is not executable"
+ return -code error "Shell \"$shell\" is not executable (permissions)"
}
return
}
@@ -118,12 +118,14 @@ proc ::platform::shell::RUN {shell code} {
} res]
file delete $c
- file delete $e
if {$code} {
- return -code error "Shell \"$shell\" is not executable"
+ append res \n[read [set chan [open $e r]]][close $chan]
+ file delete $e
+ return -code error "Shell \"$shell\" is not executable ($res)"
}
+ file delete $e
return $res
}
@@ -219,4 +221,4 @@ proc ::platform::shell::DIR {} {
# ### ### ### ######### ######### #########
## Ready
-package provide platform::shell 1.1.1
+package provide platform::shell 1.1.2