diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2007-04-17 20:33:27 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2007-04-17 20:33:27 (GMT) |
| commit | 79f95e949c348b6380830c77f049542e91136874 (patch) | |
| tree | a25167c78e1abefdc98c78a48ce989ddeb4873fd /library/clock.tcl | |
| parent | 372594a4ce239511deada5573dcbe7e9463e4028 (diff) | |
| download | tcl-79f95e949c348b6380830c77f049542e91136874.zip tcl-79f95e949c348b6380830c77f049542e91136874.tar.gz tcl-79f95e949c348b6380830c77f049542e91136874.tar.bz2 | |
* library/clock.tcl: Fixed the naming of
::tcl::clock::ReadZoneinfoFile because (yoicks!) it was in the global
namespace.
* doc/clock.n: Clarified the cases in which legacy time zone is
recognized. [Bug 1656002]
Diffstat (limited to 'library/clock.tcl')
| -rw-r--r-- | library/clock.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/clock.tcl b/library/clock.tcl index d678a7c..682b019 100644 --- a/library/clock.tcl +++ b/library/clock.tcl @@ -9,11 +9,11 @@ # #---------------------------------------------------------------------- # -# Copyright (c) 2004 by Kevin B. Kenny. All rights reserved. +# Copyright (c) 2004,2005,2006,2007 by Kevin B. Kenny # 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.41 2007/04/15 18:59:34 kennykb Exp $ +# RCS: @(#) $Id: clock.tcl,v 1.42 2007/04/17 20:33:27 kennykb Exp $ # #---------------------------------------------------------------------- @@ -3519,7 +3519,7 @@ proc ::tcl::clock::LoadZoneinfoFile { fileName } { #---------------------------------------------------------------------- # -# LoadZoneinfoFile -- +# ReadZoneinfoFile -- # # Loads a binary time zone information file in Olson format. # @@ -3538,7 +3538,7 @@ proc ::tcl::clock::LoadZoneinfoFile { fileName } { #---------------------------------------------------------------------- -proc ReadZoneinfoFile {fileName fname} { +proc ::tcl::clock::ReadZoneinfoFile {fileName fname} { variable MINWIDE variable TZData if { ![info exists fname] } { |