My math may be off, but comparing the timestamps from

18-Mar-2012 00:27 http://pause.perl.org/incoming/

17-Mar-2012 18:35 http://cpansearch.perl.org/src/STEVEB/

I get 3 hours 8 minutes. Whether its really 2 hours or 4 hours, seems fast enough to me :)

#!/usr/bin/perl --
use strict; use warnings;
use DateTime::Format::Human::Duration;
use DateTime::Format::RFC3339;
my $f = DateTime::Format::RFC3339->new();
my $dt1 = $f->parse_datetime( '2012-03-18T00:27:00+02:00' );
my $dt2 = $f->parse_datetime( '2012-03-17T18:35:00-07:00' );
print "$dt1 - $dt2 = \n";
$_->set_time_zone('UTC')  for $dt1, $dt2;
print "$dt1 - $dt2 = ";
print DateTime::Format::Human::Duration->new
->format_duration( $dt1 - $dt2 );
print "\n";
__END__
2012-03-18T00:27:00+02:00 - 2012-03-17T18:35:00-07:00 = 
2012-03-17T22:27:00Z - 2012-03-18T01:35:00Z = 3 hours and 8 minutes
[download]