diff options
| author | dkf <dkf@noemail.net> | 2006-12-14 14:24:19 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2006-12-14 14:24:19 (GMT) |
| commit | 977efaa875685613a71d6dc59ac7ea408c23eb7c (patch) | |
| tree | 0bb631d92adfbda2dd77e4688f1e5969c1f36312 /doc/string.n | |
| parent | 3e748c4f3451cf0c38e23afbe6d40c77de8d5eb7 (diff) | |
| download | tcl-977efaa875685613a71d6dc59ac7ea408c23eb7c.zip tcl-977efaa875685613a71d6dc59ac7ea408c23eb7c.tar.gz tcl-977efaa875685613a71d6dc59ac7ea408c23eb7c.tar.bz2 | |
Fix example. [Bug 1615277]
FossilOrigin-Name: d5ed65cf82b85582d598c0021a0ad9e1e5c22582
Diffstat (limited to 'doc/string.n')
| -rw-r--r-- | doc/string.n | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/doc/string.n b/doc/string.n index 92925a0..91e810e 100644 --- a/doc/string.n +++ b/doc/string.n @@ -5,7 +5,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: string.n,v 1.17.2.3 2004/10/27 14:23:58 dkf Exp $ +'\" RCS: @(#) $Id: string.n,v 1.17.2.4 2006/12/14 14:24:22 dkf Exp $ '\" .so man.macros .TH string n 8.1 Tcl "Tcl Built-In Commands" @@ -319,7 +319,7 @@ set length [\fBstring length\fR $string] if {$length == 0} { set isPrefix 0 } else { - set isPrefix [\fBstring equal\fR -length $string $string "foobar"] + set isPrefix [\fBstring equal\fR -length $length $string "foobar"] } .CE |