r64370 - in /trunk/libdatetime-format-flexible-perl: ./ debian/ lib/DateTime/Format/ lib/DateTime/Format/Flexible/ lib/DateTime/Format/Flexible/lang/ t/ t/data/
ansgar at users.alioth.debian.org
ansgar at users.alioth.debian.org
Thu Oct 28 15:55:24 UTC 2010
Author: ansgar
Date: Thu Oct 28 15:55:11 2010
New Revision: 64370
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64370
Log:
* New upstream release.
* Update my email address.
Modified:
trunk/libdatetime-format-flexible-perl/Changes
trunk/libdatetime-format-flexible-perl/META.yml
trunk/libdatetime-format-flexible-perl/debian/changelog
trunk/libdatetime-format-flexible-perl/debian/control
trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible.pm
trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang.pm
trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang/en.pm
trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang/es.pm
trunk/libdatetime-format-flexible-perl/t/base.t
trunk/libdatetime-format-flexible-perl/t/data/tests.txt
trunk/libdatetime-format-flexible-perl/t/no_year.t
trunk/libdatetime-format-flexible-perl/t/parsing.t
trunk/libdatetime-format-flexible-perl/t/timezones.t
Modified: trunk/libdatetime-format-flexible-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/Changes?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/Changes (original)
+++ trunk/libdatetime-format-flexible-perl/Changes Thu Oct 28 15:55:11 2010
@@ -1,10 +1,20 @@
Revision history for Perl module DateTime::Format::Flexible
+
+0.17
+ - more formats supported
+ - support timezone offsets that are not at the end of the datetime string.
+ - they must be 4 digits and begin with a plus or minus
+ - thanks snarkyboojum: http://use.perl.org/~snarkyboojum/journal/40297
+ - better support for dates like 'December 1st'
+ - POD formatting fixes
+ - support 'Oct.26, 2010'. thanks Brian Knapp
0.16 Thu Aug 25 2010
- make sure 'now' means now and not when the module loaded unless user has set a base (thanks Ryan Voots rt #60731)
0.15 Mon Mar 10 2010
- - fix tests for DateTime string overloading problem (thanks Andreas Koenig and Michael Schwern)
+ - fix tests for DateTime string overloading problem
+ - (thanks Andreas Koenig and Michael Schwern)
0.14 Sun Feb 28 2010
- fix test: '1 month ago at 4pm' could be potentially less that 28 days ago.
Modified: trunk/libdatetime-format-flexible-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/META.yml?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/META.yml (original)
+++ trunk/libdatetime-format-flexible-perl/META.yml Thu Oct 28 15:55:11 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: DateTime-Format-Flexible
-version: 0.16
+version: 0.17
abstract: DateTime::Format::Flexible - Flexibly parse strings and turn them into DateTime objects.
author:
- Tom Heady (cpan at punch.net)
Modified: trunk/libdatetime-format-flexible-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/debian/changelog?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/debian/changelog (original)
+++ trunk/libdatetime-format-flexible-perl/debian/changelog Thu Oct 28 15:55:11 2010
@@ -1,3 +1,10 @@
+libdatetime-format-flexible-perl (0.17-1) unstable; urgency=low
+
+ * New upstream release.
+ * Update my email address.
+
+ -- Ansgar Burchardt <ansgar at debian.org> Thu, 28 Oct 2010 17:50:59 +0200
+
libdatetime-format-flexible-perl (0.16-1) unstable; urgency=low
[ Jonathan Yu ]
Modified: trunk/libdatetime-format-flexible-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/debian/control?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/debian/control (original)
+++ trunk/libdatetime-format-flexible-perl/debian/control Thu Oct 28 15:55:11 2010
@@ -7,7 +7,7 @@
libtest-mocktime-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Jonathan Yu <jawnsy at cpan.org>, Ryan Niebur <ryan at debian.org>,
- gregor herrmann <gregoa at debian.org>, Ansgar Burchardt <ansgar at 43-1.org>
+ gregor herrmann <gregoa at debian.org>, Ansgar Burchardt <ansgar at debian.org>
Standards-Version: 3.9.1
Homepage: http://search.cpan.org/dist/DateTime-Format-Flexible/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libdatetime-format-flexible-perl/
Modified: trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible.pm?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible.pm (original)
+++ trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible.pm Thu Oct 28 15:55:11 2010
@@ -2,7 +2,7 @@
use strict;
use warnings;
-our $VERSION = '0.16';
+our $VERSION = '0.17';
use base 'DateTime::Format::Builder';
@@ -25,14 +25,18 @@
my $MMDDYYYY = qr{(\d{1,2})$DELIM(\d{1,2})$DELIM(\d{1,4})};
my $YYYYMMDD = qr{(\d{4})$DELIM(\d{1,2})$DELIM(\d{1,2})};
my $MMDD = qr{(\d{1,2})$DELIM(\d{1,2})};
-my $XMMXDD = qr{X(\d{1,2})X$DELIM(\d{1,2})};
-my $DDXMMX = qr{(\d{1,2})${DELIM}X(\d{1,2})X};
+my $XMMXDD = qr{X(\d{1,2})X${DELIM}?(\d{1,2})};
+my $DDXMMX = qr{(\d{1,2})${DELIM}?X(\d{1,2})X};
my $DDXMMXYYYY = qr{(\d{1,2})${DELIM}X(\d{1,2})X$DELIM(\d{1,4})};
my $MMYYYY = qr{(\d{1,2})$DELIM(\d{4})};
my $XMMXYYYY = qr{X(\d{1,2})X${DELIM}(\d{4})};
-my $XMMXDDYYYY = qr{X(\d{1,2})X${DELIM}(\d{1,2})$DELIM(\d{1,4})};
-
+my $XMMXDDYYYY = qr{X(\d{1,2})X${DELIM}?(\d{1,2})${DELIM}?(\d{1,4})};
+
+my $HMSMD = [ qw( hour minute second month day ) ];
+my $HMSMDY = [ qw( hour minute second month day year ) ];
+my $HMSDM = [ qw( hour minute second day month ) ];
my $HMMDY = [ qw( hour minute month day year ) ];
+my $HMMD = [ qw( hour minute month day ) ];
my $HMAPMMDD = [ qw( hour minute ampm month day ) ];
my $DM = [ qw( day month ) ];
my $DMY = [ qw( day month year ) ];
@@ -77,7 +81,6 @@
use DateTime::Format::Builder 0.74;
my $base_dt;
-
sub base
{
my ( $self , $dt ) = @_;
@@ -100,7 +103,7 @@
# M/D/YYYY, M/DD/YYYY, MM/D/YYYY, MM/DD/YYYY
{ length => [5..10], params => $MDY, regex => qr{\A${MON}${DELIM}${DAY}${DELIM}${YEAR}\z}, postprocess => \&_fix_year },
-# { length => [14], params => $MDYHMS, regex => qr{\A${MON}${DAY}${YEAR}\s$HMS\z}, postprocess => \&_fix_year },
+ { length => [12..14], params => $MDY, regex => qr{\AX${MON}X${DELIM}n${DAY}n${DELIM}${YEAR}\z} },
{ length => [11..19], params => $MDYHMS, regex => qr{\A${MON}${DELIM}${DAY}${DELIM}${YEAR}\s$HMS\z}, postprocess => \&_fix_year },
{ length => [11..20], params => $MDYHMAP, regex => qr{\A${MON}${DELIM}${DAY}${DELIM}${YEAR}\s$HM\s?$AMPM\z}, postprocess => [ \&_fix_ampm , \&_fix_year ] } ,
{ length => [14..22], params => $MDYHMSAP, regex => qr{\A${MON}${DELIM}${DAY}${DELIM}${YEAR}\s$HMS\s?$AMPM\z}, postprocess => [ \&_fix_ampm , \&_fix_year ] } ,
@@ -171,6 +174,7 @@
{ length => [15], params => $YMDHAP, regex => qr{\A${YEAR}${DELIM}${MON}${DELIM}${DAY}\s?T${HOUR}T\s?${AMPM}\z}, postprocess => \&_fix_ampm } ,
{ length => [16..18], params => $YMDHM, regex => qr{\A${YEAR}${DELIM}${MON}${DELIM}${DAY}\s?T${HM}T\z}, postprocess => \&_fix_year } ,
{ length => [21], params => $YMDHMS, regex => qr{\A${YEAR}${DELIM}${MON}${DELIM}${DAY}\s?T${HMS}T\z}, postprocess => \&_fix_year } ,
+ { length => [16], params => $MDYHMS, regex => qr{\A${MON}${DAY}(\d\d)\s?T${HMS}T\z}, postprocess => \&_fix_year } ,
{ length => [16], params => $YMDHAP, regex => qr{\A${YEAR}${DELIM}${MON}${DELIM}${DAY}\s?T${HOUR}T${AMPM}\z}, postprocess => \&_fix_ampm } ,
{ length => [15,16], params => $MDHMS, regex => qr{\A${MON}${DELIM}${DAY}\s?T${HMS}T\z},
@@ -179,7 +183,6 @@
postprocess => sub { my %args = @_; $args{parsed}{year} = __PACKAGE__->base->year } } ,
########################################################
- ##### Month/Day
# YYYY HH:MM:SS
{ length => [13], params => $YHMS , regex => qr{\A$YEAR\s$HMS\z} } ,
@@ -203,6 +206,10 @@
{ length => [12..21], params => $DMYHMS, regex => qr{\A${DDXMMXYYYY}\s${HMS}\z}, postprocess => \&_fix_year },
{ length => [16..25], params => $DMYHMSNS, regex => qr{\A${DDXMMXYYYY}\s${HMSNS}\z}, postprocess => \&_fix_year },
{ length => [14..24], params => $DMYHMSAP, regex => qr{\A${DDXMMXYYYY}\s${HMS}\s?$AMPM\z}, postprocess => [ \&_fix_year , \&_fix_ampm ] },
+ { length => [9..15] , params => $HMSMD, regex => qr{\A${HMS}${XMMXDD}\z}, postprocess => \&_set_default_year },
+ { length => [9..15] , params => $HMSDM, regex => qr{\A${HMS}${DELIM}?${DDXMMX}\z}, postprocess => \&_set_default_year },
+ { length => [11..17], params => $HMSMDY, regex => qr{\A${HMS}${XMMXDDYYYY}\z}, postprocess => \&_fix_year },
+ { length => [6..11], params => $HMMD, regex => qr{\A${HM}${XMMXDD}\z}, postprocess => \&_set_default_year },
# mon
{ length => [3,4], params => $M, regex => qr{\AX${MON}X\z},
@@ -215,7 +222,7 @@
{ length => [16..21], params => $MYHMSAP, regex => qr{\A${XMMXYYYY}\s${HMS}\s?$AMPM\z}, postprocess => \&_fix_ampm },
{ length => [5..7], params => $MD, regex => qr{\A$XMMXDD\z},
- postprocess => sub { my %args = @_; $args{parsed}{year} = __PACKAGE__->base->year } },
+ postprocess => sub { my %args = @_; _set_year( @_ ) } },
{ length => [10..18], params => $MDHMS, regex => qr{\A$XMMXDD\s$HMS\z},
postprocess => sub { my %args = @_; $args{parsed}{year} = __PACKAGE__->base->year } },
{ length => [12..21], params => $MDHMSAP, regex => qr{\A$XMMXDD\s$HMS\s?$AMPM\z} ,
@@ -440,9 +447,10 @@
$date =~ s{($DELIM)+}{$1}mxg; # make multiple delimeters into one
- # remove any leading delimeters
+ # remove any leading delimeters unless it is -infinity
$date =~ s{\A$DELIM+}{}mx if ( not $date eq '-infinity' );
$date =~ s{$DELIM+\z}{}mx; # remove any trailing delimeters
+ $date =~ s{\,+}{}gmx; # remove commas
# if we have two digits at the beginning of our date that are greater than 31,
# we have a possible two digit year
@@ -516,6 +524,16 @@
return ( $date , $p );
}
+ # search for positive/negative 4 digit timezones that are inside the string
+ # must be surrounded by spaces
+ # Mon Apr 05 17:25:35 +0000 2010
+ if ( my ( $tz ) = $date =~ m{\s([\+\-]\d{4})\s}mx )
+ {
+ $date =~ s{\Q$tz\E}{};
+ $p->{time_zone} = $tz;
+ return ( $date , $p );
+ }
+
return ( $date , $p );
}
@@ -570,6 +588,33 @@
}
return 1;
}
+ return 1;
+}
+
+sub _set_default_year
+{
+ my %args = @_;
+ $args{parsed}{year} = __PACKAGE__->base->year;
+ return 1;
+}
+
+sub _set_year
+{
+ my %args = @_;
+ my %constructor_args = $args{args} ? @{$args{args}} : ();
+ return 1 if defined $args{parsed}{year}; # year is already set
+
+ if ( $constructor_args{prefer_future} )
+ {
+ if ( $args{parsed}{month} < __PACKAGE__->base->month or
+ ( $args{parsed}{month} eq __PACKAGE__->base->month and
+ $args{parsed}{day} < __PACKAGE__->base->day ) )
+ {
+ $args{parsed}{year} = __PACKAGE__->base->clone->add( years => 1 )->year;
+ return 1;
+ }
+ }
+ $args{parsed}{year} = __PACKAGE__->base->year;
return 1;
}
Modified: trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang.pm?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang.pm (original)
+++ trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang.pm Thu Oct 28 15:55:11 2010
@@ -27,7 +27,7 @@
next;
}
}
- printf( "# not skipping %s\n", $plug ) if $ENV{DFF_DEBUG};
+# printf( "# not skipping %s\n", $plug ) if $ENV{DFF_DEBUG};
$date = $self->_do_math( $plug , $date );
$date = $self->_string_dates( $plug , $date );
@@ -125,6 +125,13 @@
return ( $date , $p );
}
+ elsif ( $date =~ m{\d$month_name}mxi )
+ {
+ $p->{ month } = $month_number;
+ $date =~ s{(\d)$month_name}{$1X${month_number}X}mxi;
+
+ return ( $date , $p );
+ }
}
return ( $date , $p );
}
@@ -237,10 +244,10 @@
=head1 COPYRIGHT & LICENSE
- Copyright 2010 Tom Heady.
-
- This program is free software; you can redistribute it and/or
- modify it under the terms of either:
+Copyright 2010 Tom Heady.
+
+This program is free software; you can redistribute it and/or
+modify it under the terms of either:
=over 4
Modified: trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang/en.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang/en.pm?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang/en.pm (original)
+++ trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang/en.pm Thu Oct 28 15:55:11 2010
@@ -89,9 +89,9 @@
sub remove_strings
{
return (
- qr{\sof\s}i, # remove ' of ' as in '16th of November 2003'
- qr{(?:st|nd|rd|th),?\s}, # remove number extensions
- qr{next}i, # next sunday
+ qr{\bof\b}i, # remove ' of ' as in '16th of November 2003'
+ qr{(?:st|nd|rd|th)\b,?}, # remove number extensions
+ qr{\bnext\b}i, # next sunday
);
}
@@ -234,10 +234,10 @@
=head1 COPYRIGHT & LICENSE
- Copyright 2010 Tom Heady.
-
- This program is free software; you can redistribute it and/or
- modify it under the terms of either:
+Copyright 2010 Tom Heady.
+
+This program is free software; you can redistribute it and/or
+modify it under the terms of either:
=over 4
Modified: trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang/es.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang/es.pm?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang/es.pm (original)
+++ trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang/es.pm Thu Oct 28 15:55:11 2010
@@ -97,7 +97,7 @@
sub remove_strings
{
return (
- qr{\sde\s}i, # remove ' de ' as in '29 de febrero de 1996'
+ qr{\bde\b}i, # remove ' de ' as in '29 de febrero de 1996'
);
}
@@ -226,10 +226,10 @@
=head1 COPYRIGHT & LICENSE
- Copyright 2010 Tom Heady.
-
- This program is free software; you can redistribute it and/or
- modify it under the terms of either:
+Copyright 2010 Tom Heady.
+
+This program is free software; you can redistribute it and/or
+modify it under the terms of either:
=over 4
Modified: trunk/libdatetime-format-flexible-perl/t/base.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/t/base.t?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/t/base.t (original)
+++ trunk/libdatetime-format-flexible-perl/t/base.t Thu Oct 28 15:55:11 2010
@@ -12,6 +12,7 @@
# my ( $base_dt ) = $base->parse_datetime( '2005-06-07T13:14:15' );
# $base->base( $base_dt );
+my $base_dt = DateTime->new( year => 2009, month => 6, day => 22 );
{
my $dt = DateTime::Format::Flexible->parse_datetime( 'now' );
@@ -19,12 +20,7 @@
my $dt2 = DateTime::Format::Flexible->parse_datetime( 'now' );
isnt( $dt->datetime, $dt2->datetime, 'parsing now is not always the same as module load' );
-
- diag( $dt->datetime .' => '. $dt2->datetime );
}
-
-
-my $base_dt = DateTime->new( year => 2009, month => 6, day => 22 );
{
my $dt = DateTime::Format::Flexible->parse_datetime(
Modified: trunk/libdatetime-format-flexible-perl/t/data/tests.txt
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/t/data/tests.txt?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/t/data/tests.txt (original)
+++ trunk/libdatetime-format-flexible-perl/t/data/tests.txt Thu Oct 28 15:55:11 2010
@@ -2928,4 +2928,14 @@
1997023 => 1997-01-23T00:00:00
1997035 => 1997-02-04T00:00:00
97035 => 1997-02-04T00:00:00
-#121065 at 5:30:25 => 2065-12-10T05:30:25
+4:50:54DeCember10/65 => 2065-12-10T04:50:54
+4:50:54DeCember1965 => 2065-12-19T04:50:54
+121065 at 5:30:25 => 2065-12-10T05:30:25
+february 1st => 2010-02-01T00:00:00
+December 1st, 2006 => 2006-12-01T00:00:00
+2006 December 1st => 2006-12-01T00:00:00
+December first, 2006 => 2006-12-01T00:00:00
+January first, 2006 => 2006-01-01T00:00:00
+January eleventh, 2006 => 2006-01-11T00:00:00
+december eleventh, 2006 => 2006-12-11T00:00:00
+Oct.26, 2010 => 2010-10-26T00:00:00
Modified: trunk/libdatetime-format-flexible-perl/t/no_year.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/t/no_year.t?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/t/no_year.t (original)
+++ trunk/libdatetime-format-flexible-perl/t/no_year.t Thu Oct 28 15:55:11 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 24;
+use Test::More tests => 33;
use DateTime;
use t::lib::helper;
@@ -36,4 +36,14 @@
"December/10 => $curr_year-12-10T00:00:00",
"12/10 at 05:30:25 => $curr_year-12-10T05:30:25",
"12/10 at 05:30:25 GMT => $curr_year-12-10T05:30:25 => UTC",
+
+ "4:50:40DeC10 => $curr_year-12-10T04:50:40",
+ "4:50:42DeCember10 => $curr_year-12-10T04:50:42",
+ "4:50:5110DeC => $curr_year-12-10T04:50:51",
+ "4:50:5210DeCember => $curr_year-12-10T04:50:52",
+ "4:50:53 10DeC => $curr_year-12-10T04:50:53",
+ "4:50:5410DeCember => $curr_year-12-10T04:50:54",
+ "4:50:54DeCember10 => $curr_year-12-10T04:50:54",
+ "4:50DeC10 => $curr_year-12-10T04:50:00",
+ "4:50DeCember10 => $curr_year-12-10T04:50:00",
);
Modified: trunk/libdatetime-format-flexible-perl/t/parsing.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/t/parsing.t?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/t/parsing.t (original)
+++ trunk/libdatetime-format-flexible-perl/t/parsing.t Thu Oct 28 15:55:11 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 7989;
+use Test::More tests => 8000;
use File::Spec::Functions 'catfile';
use t::lib::helper;
Modified: trunk/libdatetime-format-flexible-perl/t/timezones.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/t/timezones.t?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/t/timezones.t (original)
+++ trunk/libdatetime-format-flexible-perl/t/timezones.t Thu Oct 28 15:55:11 2010
@@ -69,3 +69,8 @@
2010-02-02 12:06:45+09. => 2010-02-02T12:06:45 => +0900
2009-05-21 01:27:48+09. => 2009-05-21T01:27:48 => +0900
2010-08-01 14:25:14+09. => 2010-08-01T14:25:14 => +0900
+Mon Apr 05 17:25:35 +0000 2010 => 2010-04-05T17:25:35 => UTC
+Mon Apr 05 17:25:35 +0100 2010 => 2010-04-05T17:25:35 => +0100
+Mon Apr 05 17:25:35 -0100 2010 => 2010-04-05T17:25:35 => -0100
+2010-08-01 14:25:14 +09:00 => 2010-08-01T14:25:14 => +0900
+2010-08-01 14:25:14 -06:00 => 2010-08-01T14:25:14 => -0600
More information about the Pkg-perl-cvs-commits
mailing list