Calendar: Difference between revisions
Content added Content deleted
(added perl6) |
m (minor fix) |
||
Line 950:
$date = DateTime.new(year => $year, month => $month, day => $day);
$str ~= " " if 1 < $week-day < 8;
if $week-day == 8 {
$str ~= "\n";
| |||