Bug 11262: (follow-up) base generation of day name on a week starting with Sunday, not Monday
This fixes test failures reported by t/db_dependent/Serials/GetNextSeq.t. Signed-off-by: Galen Charlton <gmc@esilibrary.com>
This commit is contained in:
parent
758453442b
commit
05949b49bc
1 changed files with 2 additions and 2 deletions
|
@ -2699,11 +2699,11 @@ sub _numeration {
|
|||
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,
|
||||
month => 6,
|
||||
month => 11,
|
||||
day => $value + 1,
|
||||
locale => $locale,
|
||||
);
|
||||
|
|
Loading…
Reference in a new issue