perl - 为什么 DateTime::Format::W3CDTF 在英国夏令时以外的欧洲/伦敦日期返回 0？

Question

自从英国夏令时上周在英国结束后，我的应用程序就出现了一个非常有趣的错误。这是一个独立的 Perl 脚本，它演示了这个问题:

#!/usr/bin/perl

use strict; use warnings;

use DateTime::Format::W3CDTF;
use DateTime::Format::ISO8601;

my $tz = 'Europe/London';

sub print_formatted_date {
  my $date = shift;

  my $tz_date = DateTime::Format::ISO8601->new->parse_datetime( $date );
  $tz_date->set_time_zone( $tz );

  print "tz_date:  $tz_date\n";
  $tz_date->set_formatter( DateTime::Format::W3CDTF->new );

  print "tz_date with W3C formatter: $tz_date\n";
}


print_formatted_date( '2009-10-25' );
print "\n";
print_formatted_date( '2009-10-26' );

这个的输出是:

tz_date:  2009-10-25T00:00:00
tz_date with W3C formatter: 2009-10-25T00:00:00+01:00

tz_date:  2009-10-26T00:00:00
tz_date with W3C formatter: 0

请注意，对于 BST 之外的日期，W3C 格式化程序将它们呈现为“0”。

这对我来说是个问题，因为我们使用的第三方库在 SOAP 调用期间使用 DateTime::Format::W3CDTF 来格式化参数。因为格式化失败，所以调用失败。

有人有任何线索吗？我不是 Perl 大师，所以任何帮助将不胜感激。这可能是 DateTime::Format::W3CDTF 库中的错误吗？

Answer 1

查看 W3CDTF 的实现，我认为这实际上可能是库中的一个错误:

sub format_datetime
{
    my ( $self, $dt ) = @_;

    my $base = sprintf( '%04d-%02d-%02dT%02d:%02d:%02d',
        $dt->year, $dt->month, $dt->day,
        $dt->hour, $dt->minute, $dt->second );


    my $tz = $dt->time_zone;

    return $base if $tz->is_floating;

    return $base . 'Z' if $tz->is_utc;

    if (my $offset = $dt->offset()) {
        return $base . offset_as_string($offset );
    }
}

请注意，如果 $tz->is_utc是假的，但是 $dt->offset()是 0 那么没有 return代码路径被命中，我猜在 Perl 中这意味着隐式返回 nil。我认为这种情况就是我的示例脚本所遇到的情况——“欧洲/伦敦”在技术上不是 UTC，但它的偏移量仍然为 0。

更新

经过更多的研究，我发现同样的错误 has already been reported (2年前!)。错误报告包含一个似乎可以解决问题的补丁(尽管我没有亲自测试过)。

更新 2

此问题的修复 has been released