diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2006-12-14 14:24:20 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2006-12-14 14:24:20 (GMT) |
| commit | 9c1250685d8ba9e7e4b26e09939863bc22577d9e (patch) | |
| tree | 0bb631d92adfbda2dd77e4688f1e5969c1f36312 /doc/string.n | |
| parent | 4d3bde8fa74425ef463fb222e97e24bf7a94d3cc (diff) | |
| download | tcl-9c1250685d8ba9e7e4b26e09939863bc22577d9e.zip tcl-9c1250685d8ba9e7e4b26e09939863bc22577d9e.tar.gz tcl-9c1250685d8ba9e7e4b26e09939863bc22577d9e.tar.bz2 | |
Fix example. [Bug 1615277]
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 |