diff options
author | kennykb <kennykb@noemail.net> | 2007-04-20 06:10:55 (GMT) |
---|---|---|
committer | kennykb <kennykb@noemail.net> | 2007-04-20 06:10:55 (GMT) |
commit | a1162009514cbf06ae4518ff6561cca654eb8cc9 (patch) | |
tree | 103cdcd515ae38406063be74a3bb942be25c9ebd /generic/tclPkg.c | |
parent | c22a629d769c281bd084ababea123dc858705794 (diff) | |
download | tcl-a1162009514cbf06ae4518ff6561cca654eb8cc9.zip tcl-a1162009514cbf06ae4518ff6561cca654eb8cc9.tar.gz tcl-a1162009514cbf06ae4518ff6561cca654eb8cc9.tar.bz2 |
Replaced commas in varargs with string concatenation where possible [Patch 1515234]
FossilOrigin-Name: d0d3c30f1a60ecb75cdca7e63593bb7d7a98f017
Diffstat (limited to 'generic/tclPkg.c')
-rw-r--r-- | generic/tclPkg.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclPkg.c b/generic/tclPkg.c index 5426bc7..dff6090 100644 --- a/generic/tclPkg.c +++ b/generic/tclPkg.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclPkg.c,v 1.26 2006/12/05 15:36:12 dgp Exp $ + * RCS: @(#) $Id: tclPkg.c,v 1.27 2007/04/20 06:10:58 kennykb Exp $ * * TIP #268. * Heavily rewritten to handle the extend version numbers, and extended @@ -286,7 +286,7 @@ Tcl_PkgRequireEx( tclEmptyStringRep = &tclEmptyString; Tcl_AppendResult(interp, "Cannot load package \"", name, - "\" in standalone executable: This package is not ", + "\" in standalone executable: This package is not " "compiled with stub support", NULL); return NULL; } @@ -380,7 +380,7 @@ Tcl_PkgRequireProc( */ if (pkgPtr->clientData != NULL) { - Tcl_AppendResult(interp, "circular package dependency: ", + Tcl_AppendResult(interp, "circular package dependency: " "attempt to provide ", name, " ", (char *) pkgPtr->clientData, " requires ", name, NULL); AddRequirementsToResult(interp, reqc, reqv); @@ -532,7 +532,7 @@ Tcl_PkgRequireProc( Tcl_Obj *codePtr = Tcl_NewIntObj(code); Tcl_ResetResult(interp); Tcl_AppendResult(interp, "attempt to provide package ", - name, " ", versionToProvide, " failed: ", + name, " ", versionToProvide, " failed: " "bad return code: ", TclGetString(codePtr), NULL); TclDecrRefCount(codePtr); code = TCL_ERROR; |