summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2006-07-30 19:15:41 (GMT)
committerKevin B Kenny <kennykb@acm.org>2006-07-30 19:15:41 (GMT)
commit7286027bfe63e54eb30b77335cd0f2061003eda3 (patch)
tree2a252e1553be442e4cca07ad0b5b6eb3640053a5 /library
parent89523cfd09df9126005a8a40871fc44b9da1e89c (diff)
downloadtcl-7286027bfe63e54eb30b77335cd0f2061003eda3.zip
tcl-7286027bfe63e54eb30b77335cd0f2061003eda3.tar.gz
tcl-7286027bfe63e54eb30b77335cd0f2061003eda3.tar.bz2
Fixed Bug 1494664
Diffstat (limited to 'library')
-rw-r--r--library/clock.tcl6
1 files changed, 3 insertions, 3 deletions
diff --git a/library/clock.tcl b/library/clock.tcl
index 0ed1eef..4a10ad3 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.31 2006/07/30 18:58:55 kennykb Exp $
+# RCS: @(#) $Id: clock.tcl,v 1.32 2006/07/30 19:15:41 kennykb Exp $
#
#----------------------------------------------------------------------
@@ -757,7 +757,7 @@ proc ::tcl::clock::format { args } {
proc ::tcl::clock::ParseClockFormatFormat {format locale} {
set procName [namespace current]::formatproc'$format'$locale
- if {[info procs $procName] != {}} {
+ if {[namespace which $procName] != {}} {
return $procName
}
@@ -1563,7 +1563,7 @@ proc ::tcl::clock::ParseClockScanFormat {formatString locale} {
# the existing recognizer if it has.
set procName [namespace current]::scanproc'$formatString'$locale
- if { [info procs $procName] != {} } {
+ if { [namespace which $procName] != {} } {
return $procName
}