diff options
author | Kevin B Kenny <kennykb@acm.org> | 2004-09-08 15:38:28 (GMT) |
---|---|---|
committer | Kevin B Kenny <kennykb@acm.org> | 2004-09-08 15:38:28 (GMT) |
commit | 30204f6dca832947b87b204f4fb74bccbd0be640 (patch) | |
tree | 46ac560d77a5ba621f11e75736f2c19ba8a94fac /generic/tclClock.c | |
parent | 81f39c521013b8e14be326102c01400789e50150 (diff) | |
download | tcl-30204f6dca832947b87b204f4fb74bccbd0be640.zip tcl-30204f6dca832947b87b204f4fb74bccbd0be640.tar.gz tcl-30204f6dca832947b87b204f4fb74bccbd0be640.tar.bz2 |
* generic/tclClock.c (TclClockMktimeObjCmd): Fixed a bug where
the month was scanned incorrectly in -timezone :localtime.
* tests/clock.test (clock-40.1): Added regression test case for
the bug where month was scanned incorrectly in -timezone :localtime.
Diffstat (limited to 'generic/tclClock.c')
-rw-r--r-- | generic/tclClock.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclClock.c b/generic/tclClock.c index 3fa51ae..e348d58 100644 --- a/generic/tclClock.c +++ b/generic/tclClock.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclClock.c,v 1.30 2004/08/18 21:29:12 kennykb Exp $ + * RCS: @(#) $Id: tclClock.c,v 1.31 2004/09/08 15:38:33 kennykb Exp $ */ #include "tclInt.h" @@ -239,7 +239,7 @@ TclClockMktimeObjCmd( ClientData clientData, if ( Tcl_GetIntFromObj( interp, objv[2], &i ) != TCL_OK ) { return TCL_ERROR; } - toConvert.tm_mon = i; + toConvert.tm_mon = i - 1; if ( Tcl_GetIntFromObj( interp, objv[3], &i ) != TCL_OK ) { return TCL_ERROR; } |