diff options
| author | redman <redman> | 1999-07-29 23:17:38 (GMT) |
|---|---|---|
| committer | redman <redman> | 1999-07-29 23:17:38 (GMT) |
| commit | dfd80e527ae80304b861420b7bd87131ecbe90df (patch) | |
| tree | 169add5d3b87fb40af4ad770241d1ee4d1d3c18c /unix/mkLinks.tcl | |
| parent | 2a5093e8452e5ec2c6d52b77e936eda1508cb2f1 (diff) | |
| download | tcl-dfd80e527ae80304b861420b7bd87131ecbe90df.zip tcl-dfd80e527ae80304b861420b7bd87131ecbe90df.tar.gz tcl-dfd80e527ae80304b861420b7bd87131ecbe90df.tar.bz2 | |
* unix/mkLinks.tcl: Applied patch to avoid linking pack.n to
pack-old.n. Patch from Don Porter. [Bug: 2469]
* doc/Encoding.n: Applied patch to fix typo in .SH NAME line.
Patch from Don Porter. [Bug: 2451]
Diffstat (limited to 'unix/mkLinks.tcl')
| -rw-r--r-- | unix/mkLinks.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/unix/mkLinks.tcl b/unix/mkLinks.tcl index f9afcb2..22f54f3 100644 --- a/unix/mkLinks.tcl +++ b/unix/mkLinks.tcl @@ -52,7 +52,7 @@ foreach file $argv { regsub {\\-.*} $line {} line foreach name [split $line ,] { regsub -all { } $name "" name - if {[string compare $tail $name$ext] != 0} { + if {![string match $name*$ext $tail]} { puts "if test -r $tail; then" puts " rm -f $name$ext" puts " ln $tail $name$ext" |