Changeset 6283 for branches/1.7/lang/tcl/scripts/library.tcl

Timestamp:

Apr 20, 2016, 3:48:42 PM (8 years ago)

Author:

gah

Message:

fixes for uq responseviewer

File:

• branches/1.7/lang/tcl/scripts/library.tcl (modified) (2 diffs)

branches/1.7/lang/tcl/scripts/library.tcl

@@ -75 +75 @@
             close $fid
         } errs] != 0 } {
+            global errorInfo
             puts stderr "can't open \"$fname\": errs=$errs errorInfo=$errorInfo"
         }
@@ -90 +91 @@
             close $fid
         } errs] != 0 } {
+            global errorInfo
             puts stderr "can't open \"$fname\": errs=$errs errorInfo=$errorInfo"
         }