aboutsummaryrefslogtreecommitdiff
path: root/glob.tcl
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2010-01-27 14:19:00 +1000
committerSteve Bennett <steveb@workware.net.au>2010-10-15 11:02:46 +1000
commitcf077dff22b3c9ca0c528fd64e1392971e2d6027 (patch)
tree084df123c747d4ca4212f27274b78982ff9c1095 /glob.tcl
parent8ca4eb0a1561cdd3ccd92d797cc744b6f8b0ea8d (diff)
downloadjimtcl-cf077dff22b3c9ca0c528fd64e1392971e2d6027.zip
jimtcl-cf077dff22b3c9ca0c528fd64e1392971e2d6027.tar.gz
jimtcl-cf077dff22b3c9ca0c528fd64e1392971e2d6027.tar.bz2
Improve stack trace handling
*: Get rid of JIM_ERR_ADDSTACK and use interp->addStackTrace instead *: 'return -code error' doesn't add a stack frame *: Rename _file_copy to {file copy} for better error messages *: Use 'return -code' to prevent excessive levels in the stack trace Also rename info_nameofexecutable to {info nameofexecutable}
Diffstat (limited to 'glob.tcl')
-rw-r--r--glob.tcl2
1 files changed, 1 insertions, 1 deletions
diff --git a/glob.tcl b/glob.tcl
index 64323fb..8288bc1 100644
--- a/glob.tcl
+++ b/glob.tcl
@@ -117,7 +117,7 @@ proc glob {args} {
}
if {$nocomplain == 0 && [llength $result] == 0} {
- error "no files matched glob patterns"
+ return -code error "no files matched glob patterns"
}
return $result