$days[Decode_Day_of_Week($_)] = 1;
}
foreach ($year->search("")) {
- next unless ($year->is_full($_) && $_>=$firstday && $_<=$lastday);
- if (defined($days[Day_of_Week($_->date)])) {
- push @holidays, $_;
+ my $good=1;
+ foreach my $x ($year->labels($_)) {
+ $good=0 if $x =~ /Veteran/;
+ $good=2 if $x =~ /Thanksgiving/;
}
+ next unless ($year->is_full($_) && $_>=$firstday && $_<=$lastday);
+ push @holidays, $_
+ if (defined($days[Day_of_Week($_->date)]) && $good);
+ push @holidays, $_+1
+ if (defined($days[5]) && $good==2);
}
+ print "@holidays\n";
return wantarray ? @holidays : "@holidays";
}