Re^3: How to format dates prior to 1970?

[1nickt]

Well, since the exception is apparently caused by Time::Piece (even though it's a core module), try using something else:

use strict; use warnings; use feature 'say';
use DateTime::Format::Strptime;

my $parser = DateTime::Format::Strptime->new(pattern => '%m/%d/%Y', on
+_error => 'croak');
my $date = '05/10/1969';
my $dt = $parser->parse_datetime( $date );
say $dt->ymd;

What does that do on your Windows system?

[Hanfresco]

#!/usr/bin/perl

use v5.10;
use strict;
use warnings;

use Data::Dumper;
use DateTime::Format::Strptime;

$Data::Dumper::Sortkeys = 1;

my $parser = DateTime::Format::Strptime->new(pattern => '%m/%d/%Y', on
+_error => 'croak');
my $date = '05/10/1969';
my $dt = $parser->parse_datetime($date);
say $dt->ymd;
say $dt->strftime('%Y-%m-%d');

Interesting! This seems to work even with strftime; no seg faults!

[ikegami]

DateTime isn't based around epoch times, so it will indeed work with older-than-epoch times without problem.