diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2006-12-14 10:22:02 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2006-12-14 10:22:02 (GMT) |
| commit | 693ea2aafd0c56689cc2b3a247e8baa29daa7b5a (patch) | |
| tree | c1424514d4e8feb3fa265966f83d9e28b528fec2 /doc/string.n | |
| parent | 9d89af8419103027284fb87c4c5254a3e6ab1395 (diff) | |
| download | tcl-693ea2aafd0c56689cc2b3a247e8baa29daa7b5a.zip tcl-693ea2aafd0c56689cc2b3a247e8baa29daa7b5a.tar.gz tcl-693ea2aafd0c56689cc2b3a247e8baa29daa7b5a.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 1e174c1..302f59e 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.32 2006/11/22 23:22:23 dkf Exp $ +'\" RCS: @(#) $Id: string.n,v 1.33 2006/12/14 10:22:03 dkf Exp $ '\" .so man.macros .TH string n 8.1 Tcl "Tcl Built-In Commands" @@ -356,7 +356,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 |