- my $lastday = Days_in_Month($year, $month);
- # Date::Calc uses 1..7 as indicies in the week, starting with Monday.
- # Internally, we use 0..6, starting with Sunday. These turn out to be
- # identical except for Sunday.
- my $dow1st = $self->dow(1);
- $dow1st = 0 if $dow1st == 7;
- ($dow1st, $lastday);