summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-02-09 22:27:46 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-02-09 22:27:46 (GMT)
commit1009d232b4c47ae29d281c1454c7896a1b40e5a4 (patch)
tree0d5ddf16e837d9098c3c55e4b715dc2b8d6d8e03
parentdcb6a3ca97368dcad4e7901623480303f7ad9457 (diff)
downloadtcl-1009d232b4c47ae29d281c1454c7896a1b40e5a4.zip
tcl-1009d232b4c47ae29d281c1454c7896a1b40e5a4.tar.gz
tcl-1009d232b4c47ae29d281c1454c7896a1b40e5a4.tar.bz2
Corrected case of trap pattern
-rw-r--r--library/clock.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/library/clock.tcl b/library/clock.tcl
index 9f9bcae..2cf4ada 100644
--- a/library/clock.tcl
+++ b/library/clock.tcl
@@ -13,7 +13,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: clock.tcl,v 1.59 2009/11/19 11:59:54 dkf Exp $
+# RCS: @(#) $Id: clock.tcl,v 1.60 2010/02/09 22:27:46 dkf Exp $
#
#----------------------------------------------------------------------
@@ -724,7 +724,7 @@ proc ::tcl::clock::ParseClockFormatFormat {procName format locale} {
try {
return [ParseClockFormatFormat2 $format $locale $procName]
- } trap clock {result opts} {
+ } trap CLOCK {result opts} {
dict unset opts -errorinfo
return -options $opts $result
} finally {