#914 the subst command seems broken

[Anonymous]

OriginalBugID: 2202 Bug
Version: 8.1.1
SubmitDate: '1999-06-11'
LastModified: '1999-08-12'
Severity: SER
Status: Released
Submitter: techsupp
ChangedBy: hobbs
RelatedBugIDs: 2535
OS: Digital Unix
OSVersion: 4.0e
Machine: Other
FixedDate: '1999-08-12'
FixedInVersion: 8.2
ClosedDate: '2000-10-25'

Name:
Stuart Midgley

ReproducibleScript:
File test:
hello
[return $st]
there

Output from tclsh8.0:
canoepolo:~/tmp > tclsh8.0
% set txt [read [open test r]]
hello
[return $st]
there

% set st "stuart"
stuart
% subst $txt
hello
stuart
there

%

Output from tclsh8.1.1:
canoepolo:~/tmp > bin/tclsh8.1
% set txt [read [open test r]]
hello
[return $st]
there

% set st "stuart"
stuart
% subst $txt
hello
stuartthere

%

I have also noticed some other severe problems with tcl8.1.1 .

File test:
hello
[set hdl [open test2 r]
set ttt [read ${hdl}]
return "$st $ttt"]
there

File test2:
Midgley

From tclsh8.0:
canoepolo:~/tmp > tclsh8.0
% set txt [read [open test r]]
hello
[set hdl [open test2 r]
set ttt [read ${hdl}]
return "$st $ttt"]
there

% set st "stuart"
stuart
% subst $txt
hello
stuart Midgley

there

%

From tclsh8.1.1:
canoepolo:~/tmp > bin/tclsh8.1
% set txt [read [open test r]]
hello
[set hdl [open test2 r]
set ttt [read ${hdl}]
return "$st $ttt"]
there

% set st "stuart"
stuart
% subst $txt
hello
stuart Midgley
n test2 r]
set ttt
return "stuart Midgley
"]
there

%

ObservedBehavior:
Subst just doesn't seem to work as it use to.

This is fixed in the 8.2.0 release.
-- 08/12/1999 hobbs