[Tcl-bugs] [ tcl-Bugs-1076248 ] if command error

[SourceForge.net <no...@so...>]

Bugs item #1076248, was opened at 2004-11-30 12:20
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=1076248&group_id=10894

Category: 17. Commands I-L
Group: current: 8.4.8
Status: Open
Resolution: None
Priority: 5
Submitted By: Nobody/Anonymous (nobody)
Assigned to: Donal K. Fellows (dkf)
Summary: if command error

Initial Comment:
Tested on ActiveTcl build8.4.8 and self-built 8.4.8 on
Red hat 9.0

tclsh
% set test_string "</Config>"
</Config>
% if [ regexp "^</(.*)>" $test_string jerk cfg_line ] {
puts $cfg_line
} elseif [ regexp "^<(.*)>" $test_string jerk cfg_line ] {
}
/Config


% if [ regexp "^</(.*)>" $test_string jerk cfg_line ] {
puts $cfg_line
} elseif [ regexp "^<(.*)>" $test_string jerk cfg_line2 ] {
}
Config
%


----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=1076248&group_id=10894