diff options
author | andreas_kupries <andreas_kupries@noemail.net> | 2006-03-16 00:38:49 (GMT) |
---|---|---|
committer | andreas_kupries <andreas_kupries@noemail.net> | 2006-03-16 00:38:49 (GMT) |
commit | 3f43a630c80cd9a52c8b6cfe041711f93da7c861 (patch) | |
tree | 76bac598f558f0fc85c58d270fe6a7e07b26fe58 /generic/tclPipe.c | |
parent | 9172855642f6c57df57bc39687b74b3a91ee8449 (diff) | |
download | tcl-3f43a630c80cd9a52c8b6cfe041711f93da7c861.zip tcl-3f43a630c80cd9a52c8b6cfe041711f93da7c861.tar.gz tcl-3f43a630c80cd9a52c8b6cfe041711f93da7c861.tar.bz2 |
* tests/socket.test: Extended the timeout in socket-11.11 from 10
to 40 seconds to allow for really slow machines. Also extended
actual/expected results with value of variable 'done' to make it
clearer when a test fails due to a timeout. [Bug 792159].
* generic/tclPipe.c (TclCreatePipeline): Modified the processing
of pipebars to fail if the last bar is followed only by
redirections. [Bug 768659].
FossilOrigin-Name: 99ff6f81ba6a913a3af8bfed22785658c477f012
Diffstat (limited to 'generic/tclPipe.c')
-rw-r--r-- | generic/tclPipe.c | 20 |
1 files changed, 18 insertions, 2 deletions
diff --git a/generic/tclPipe.c b/generic/tclPipe.c index b02d91b..bd66ca6 100644 --- a/generic/tclPipe.c +++ b/generic/tclPipe.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclPipe.c,v 1.17 2006/01/16 19:38:15 rmax Exp $ + * RCS: @(#) $Id: tclPipe.c,v 1.18 2006/03/16 00:38:50 andreas_kupries Exp $ */ #include "tclInt.h" @@ -485,7 +485,7 @@ TclCreatePipeline( int errorRelease = 0; CONST char *p; CONST char *nextArg; - int skip, lastBar, lastArg, i, j, atOK, flags, errorToOutput = 0; + int skip, lastBar, lastArg, i, j, atOK, flags, needCmd, errorToOutput = 0; Tcl_DString execBuffer; TclFile pipeIn; TclFile curInFile, curOutFile, curErrFile; @@ -523,6 +523,7 @@ TclCreatePipeline( lastBar = -1; cmdCount = 1; + needCmd = 1; for (i = 0; i < argc; i++) { errorToOutput = 0; skip = 0; @@ -541,6 +542,7 @@ TclCreatePipeline( } lastBar = i; cmdCount++; + needCmd = 1; break; case '<': @@ -683,6 +685,11 @@ TclCreatePipeline( } } break; + + default: + /* Got a command word, not a redirection */ + needCmd = 0; + break; } if (skip != 0) { @@ -694,6 +701,15 @@ TclCreatePipeline( } } + if (needCmd) { + /* We had a bar followed only by redirections. */ + + Tcl_SetResult(interp, + "illegal use of | or |& in command", + TCL_STATIC); + goto error; + } + if (inputFile == NULL) { if (inputLiteral != NULL) { /* |