summaryrefslogtreecommitdiffstats
path: root/generic/tclClock.c
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2004-09-08 15:38:28 (GMT)
committerKevin B Kenny <kennykb@acm.org>2004-09-08 15:38:28 (GMT)
commit30204f6dca832947b87b204f4fb74bccbd0be640 (patch)
tree46ac560d77a5ba621f11e75736f2c19ba8a94fac /generic/tclClock.c
parent81f39c521013b8e14be326102c01400789e50150 (diff)
downloadtcl-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.c4
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;
}