On Thu, 07 Feb 2002 12:48:06 +0100, Bart Lateur wrote: >On Thu, 7 Feb 2002 00:28:26 -0500, Michael G Schwern wrote: > >> use Date::Christmas qw(christmasday); >> my $year = (localtime)[5] + 1900; >> 1 until christmasday($year++) eq 'Sunday'; >> print "Christmas will fall on a Sunday in $year\n"; > >No it won't. You're displaying the year after the first year when >Christmas falls on a sunday.
OTOH it prints the first year where New Years Day falls on a sunday, perfectly. -- Bart.