try: fix use of catch/uplevel
commit9d6004a26d406aa9331fae3ffcb26be298be552d
authorSteve Bennett <steveb@workware.net.au>
Thu, 4 Dec 2014 00:21:33 +0000 (4 10:21 +1000)
committerSteve Bennett <steveb@workware.net.au>
Thu, 4 Dec 2014 00:23:21 +0000 (4 10:23 +1000)
treea74bb245c511c605c8154e797915b43e7657192e
parent9750e362c183c85bb1c67cfb962a3a2ed3a31b5f
try: fix use of catch/uplevel

Use catch {uplevel 1 $script} instead of catch [list uplevel 1 $script]
to ensure that source info is not lost.

Signed-off-by: Steve Bennett <steveb@workware.net.au>
tclcompat.tcl