# off is the time zone offset in seconds from GMT
my ($ss,$mm,$hh,$day,$month,$year,$off) =
Date::Parse::strptime($date);
- return undef unless(defined $off);
+ return unless defined($year);
+ $off //= 0;
# Compute the time zone from offset
my $sign = ($off < 0) ? '-' : '+';
use Test::More;
use PublicInbox::MIME;
use PublicInbox::MsgTime;
+use PublicInbox::TestCommon;
+
our $received_date = 'Mon, 22 Jan 2007 13:16:24 -0500';
sub datestamp ($) {
my ($date) = @_;
is_datestamp('Thu, 14 Dec 2006 00:20:24 -0480', [1166074824, '-0520']);
is_datestamp('Mon, 14 Apr 2014 07:59:01 -0007', [1397462761, '-0007']);
+SKIP: {
+ require_mods('Date::Parse', 1);
+ is_datestamp('Sat, 27 Sep 1997 10:02:32', [875354552, '+0000']);
+}
+
# obsolete formats described in RFC2822
for (qw(UT GMT Z)) {
is_datestamp('Fri, 02 Oct 1993 00:00:00 '.$_, [ 749520000, '+0000']);