diff options
| author | andreas_kupries <akupries@shaw.ca> | 2007-03-05 23:28:25 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2007-03-05 23:28:25 (GMT) |
| commit | 46c5f7a817b9e5508cde166112d355998c8213dc (patch) | |
| tree | a44f7c3f3374b976cde326914120ea1697ec91f6 /library | |
| parent | bbbcdcbdfc1d81b58a3bd8234b3494b598184c3b (diff) | |
| download | tcl-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.tcl | 2 | ||||
| -rw-r--r-- | library/platform/shell.tcl | 10 |
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 |