# from Daniel T. Staal
# on Friday 04 January 2008 08:14:
>'Today' is the present, and 'next Sunday' at that point can
>either be 7 or 14 days in the future, depending on context...
Perl tends not to provide quite that much context, so I guess the
behavior you want is this:
if($want eq 'sunday' and $self->wday == 0) {
if(fork) {
return($self+7);
}
else {
return($self+14);
}
}
--Eric
--
Entia non sunt multiplicanda praeter necessitatem.
--Occam's Razor
---------------------------------------------------
http://scratchcomputing.com
---------------------------------------------------
