This fixes test failures reported by
t/db_dependent/Serials/GetNextSeq.t.
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
my $string;
given ($num_type) {
when (/^dayname$/) {
my $string;
given ($num_type) {
when (/^dayname$/) {
- # 1970-06-01 was a monday
+ # 1970-11-01 was a Sunday
$value = $value % 7;
my $dt = DateTime->new(
year => 1970,
$value = $value % 7;
my $dt = DateTime->new(
year => 1970,
day => $value + 1,
locale => $locale,
);
day => $value + 1,
locale => $locale,
);