r64463 - in /branches/upstream/libdatetime-format-http-perl/current: Changes MANIFEST META.yml Makefile.PL lib/DateTime/Format/HTTP.pm t/date.t
ansgar at users.alioth.debian.org
ansgar at users.alioth.debian.org
Mon Nov 1 10:49:07 UTC 2010
Author: ansgar
Date: Mon Nov 1 10:48:33 2010
New Revision: 64463
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64463
Log:
[svn-upgrade] new version libdatetime-format-http-perl (0.40)
Modified:
branches/upstream/libdatetime-format-http-perl/current/Changes
branches/upstream/libdatetime-format-http-perl/current/MANIFEST
branches/upstream/libdatetime-format-http-perl/current/META.yml
branches/upstream/libdatetime-format-http-perl/current/Makefile.PL
branches/upstream/libdatetime-format-http-perl/current/lib/DateTime/Format/HTTP.pm
branches/upstream/libdatetime-format-http-perl/current/t/date.t
Modified: branches/upstream/libdatetime-format-http-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-format-http-perl/current/Changes?rev=64463&op=diff
==============================================================================
--- branches/upstream/libdatetime-format-http-perl/current/Changes (original)
+++ branches/upstream/libdatetime-format-http-perl/current/Changes Mon Nov 1 10:48:33 2010
@@ -1,3 +1,8 @@
+0.40 2010-10-31
+
+- format_isoz now actually changes the time zone. Fixes RT 62332 (DOUGDUDE)
+
+
0.39 2010-07-03
- No code changes from previous versions.
Modified: branches/upstream/libdatetime-format-http-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-format-http-perl/current/MANIFEST?rev=64463&op=diff
==============================================================================
--- branches/upstream/libdatetime-format-http-perl/current/MANIFEST (original)
+++ branches/upstream/libdatetime-format-http-perl/current/MANIFEST Mon Nov 1 10:48:33 2010
@@ -3,12 +3,12 @@
CREDITS
lib/DateTime/Format/HTTP.pm
LICENSE
-Makefile.PL
MANIFEST This list of files
-META.yml
-README
t/basic.t
t/date.t
t/pod-coverage.t
t/pod.t
t/time2str.t
+Makefile.PL
+README
+META.yml
Modified: branches/upstream/libdatetime-format-http-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-format-http-perl/current/META.yml?rev=64463&op=diff
==============================================================================
--- branches/upstream/libdatetime-format-http-perl/current/META.yml (original)
+++ branches/upstream/libdatetime-format-http-perl/current/META.yml Mon Nov 1 10:48:33 2010
@@ -4,7 +4,7 @@
- 'Christiaan Kras <ckras at cpan.org>'
configure_requires:
Module::Build: 0.36
-generated_by: 'Module::Build version 0.3607'
+generated_by: 'Module::Build version 0.3603'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -13,11 +13,11 @@
provides:
DateTime::Format::HTTP:
file: lib/DateTime/Format/HTTP.pm
- version: 0.39
+ version: 0.40
requires:
DateTime: 0.17
HTTP::Date: 1.44
Test::More: 0.47
resources:
license: http://dev.perl.org/licenses/
-version: 0.39
+version: 0.40
Modified: branches/upstream/libdatetime-format-http-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-format-http-perl/current/Makefile.PL?rev=64463&op=diff
==============================================================================
--- branches/upstream/libdatetime-format-http-perl/current/Makefile.PL (original)
+++ branches/upstream/libdatetime-format-http-perl/current/Makefile.PL Mon Nov 1 10:48:33 2010
@@ -1,16 +1,16 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.3607
+# Note: this file was auto-generated by Module::Build::Compat version 0.3603
use ExtUtils::MakeMaker;
WriteMakefile
(
- 'NAME' => 'DateTime::Format::HTTP',
- 'VERSION_FROM' => 'lib/DateTime/Format/HTTP.pm',
- 'PREREQ_PM' => {
- 'DateTime' => '0.17',
- 'HTTP::Date' => '1.44',
- 'Test::More' => '0.47'
- },
- 'INSTALLDIRS' => 'site',
- 'EXE_FILES' => [],
- 'PL_FILES' => {}
-)
+ 'NAME' => 'DateTime::Format::HTTP',
+ 'VERSION_FROM' => 'lib/DateTime/Format/HTTP.pm',
+ 'PREREQ_PM' => {
+ 'DateTime' => '0.17',
+ 'HTTP::Date' => '1.44',
+ 'Test::More' => '0.47'
+ },
+ 'INSTALLDIRS' => 'site',
+ 'EXE_FILES' => [],
+ 'PL_FILES' => {}
+ )
;
Modified: branches/upstream/libdatetime-format-http-perl/current/lib/DateTime/Format/HTTP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-format-http-perl/current/lib/DateTime/Format/HTTP.pm?rev=64463&op=diff
==============================================================================
--- branches/upstream/libdatetime-format-http-perl/current/lib/DateTime/Format/HTTP.pm (original)
+++ branches/upstream/libdatetime-format-http-perl/current/lib/DateTime/Format/HTTP.pm Mon Nov 1 10:48:33 2010
@@ -3,7 +3,7 @@
use warnings;
use vars qw( $VERSION );
-$VERSION = '0.39';
+$VERSION = '0.40';
use DateTime;
use HTTP::Date qw();
@@ -91,7 +91,7 @@
{
my ($self, $dt) = @_;
$dt = DateTime->now unless defined $dt;
- $dt->clone->set_time_zone( 'UTC' );
+ $dt = $dt->clone->set_time_zone( 'UTC' );
sprintf("%04d-%02d-%02d %02d:%02d:%02dZ",
$dt->year, $dt->month, $dt->day,
$dt->hour, $dt->min, $dt->sec
Modified: branches/upstream/libdatetime-format-http-perl/current/t/date.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-format-http-perl/current/t/date.t?rev=64463&op=diff
==============================================================================
--- branches/upstream/libdatetime-format-http-perl/current/t/date.t (original)
+++ branches/upstream/libdatetime-format-http-perl/current/t/date.t Mon Nov 1 10:48:33 2010
@@ -1,7 +1,7 @@
#!/usr/bin/perl -w
use strict;
use lib 'inc';
-use Test::More tests => 116;
+use Test::More tests => 118;
use vars qw( $class );
BEGIN {
@@ -171,3 +171,25 @@
for ($az, $bz) {
like( $_ => qr/^\d{4}-\d\d-\d\d \d\d:\d\d:\d\dZ$/, "time2isoz($_)" );
}
+
+{
+ # format_isoz must output date in UTC
+ my $eastern_date = DateTime->new(
+ year => 2010,
+ month => 10,
+ day => 21,
+ hour => 13,
+ minute => 8,
+ second => 23,
+ time_zone => 'America/New_York',
+ );
+
+ # Get the ISO "Z" format of the eastern zone date time
+ my $isoz = $class->format_isoz($eastern_date);
+
+ # Get the actual UTC date time
+ my $utc = $eastern_date->clone->set_time_zone('UTC');
+
+ is($isoz, $class->format_isoz($utc), 'format_isoz converts to UTC time zone');
+ is($eastern_date->time_zone->name, 'America/New_York', 'format_isoz does not modify input date\'s time zone');
+}
More information about the Pkg-perl-cvs-commits
mailing list