Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:rkwasny
tcl
tcl-exec.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File tcl-exec.patch of Package tcl
--- generic/tclPipe.c +++ generic/tclPipe.c @@ -135,11 +135,10 @@ *skipPtr = 2; } name = Tcl_TranslateFileName(interp, spec, &nameString); - if (name != NULL) { - file = TclpOpenFile(name, flags); - } else { - file = NULL; + if (name == NULL) { + return NULL; } + file = TclpOpenFile(name, flags); Tcl_DStringFree(&nameString); if (file == NULL) { Tcl_AppendResult(interp, "couldn't ", --- tests/exec.test +++ tests/exec.test @@ -402,7 +402,11 @@ test exec-10.21 {errors in exec invocation} {exec} { list [catch {exec [interpreter] true | ~xyzzy_bad_user/x | false} msg] $msg } {1 {user "xyzzy_bad_user" doesn't exist}} - +test exec-10.22 {errors in exec invocation} \ +-constraints exec \ +-returnCodes 1 \ +-body {exec echo test > ~non_existent_user/foo/bar} \ +-result {user "non_existent_user" doesn't exist} # Commands in background. test exec-11.1 {commands in background} {exec} {
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor