cvsuser 04/03/11 08:12:20
Modified: ops sys.ops
src utils.c
Log:
Months run from 1-12, dammit!
Revision Changes Path
1.14 +1 -1 parrot/ops/sys.ops
Index: sys.ops
===================================================================
RCS file: /cvs/public/parrot/ops/sys.ops,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -w -r1.13 -r1.14
--- sys.ops 4 Mar 2004 08:53:39 -0000 1.13
+++ sys.ops 11 Mar 2004 16:12:14 -0000 1.14
@@ -132,7 +132,7 @@
=item 4, .TM_MON
-Month of year (0-11)
+Month of year (1-12) (Note, B<actual> month, not month - 1)
=item 5, .TM_YEAR
1.12 +3 -3 parrot/src/utils.c
Index: utils.c
===================================================================
RCS file: /cvs/public/parrot/src/utils.c,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -w -r1.11 -r1.12
--- utils.c 4 Mar 2004 08:37:50 -0000 1.11
+++ utils.c 11 Mar 2004 16:12:20 -0000 1.12
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: utils.c,v 1.11 2004/03/04 08:37:50 leo Exp $
+$Id: utils.c,v 1.12 2004/03/11 16:12:20 dan Exp $
=head1 NAME
@@ -633,12 +633,12 @@
tm_to_array(Parrot_Interp interpreter, struct tm *tm)
{
PMC *Array = pmc_new(interpreter, enum_class_Array);
- VTABLE_set_integer_native(interpreter, Array, 12);
+ VTABLE_set_integer_native(interpreter, Array, 9);
VTABLE_set_integer_keyed_int(interpreter, Array, 0, tm->tm_sec);
VTABLE_set_integer_keyed_int(interpreter, Array, 1, tm->tm_min);
VTABLE_set_integer_keyed_int(interpreter, Array, 2, tm->tm_hour);
VTABLE_set_integer_keyed_int(interpreter, Array, 3, tm->tm_mday);
- VTABLE_set_integer_keyed_int(interpreter, Array, 4, tm->tm_mon);
+ VTABLE_set_integer_keyed_int(interpreter, Array, 4, tm->tm_mon + 1);
VTABLE_set_integer_keyed_int(interpreter, Array, 5, tm->tm_year + 1900);
VTABLE_set_integer_keyed_int(interpreter, Array, 6, tm->tm_wday);
VTABLE_set_integer_keyed_int(interpreter, Array, 7, tm->tm_yday);
