usr.bin/perl/util.c

3857 #define SECS_PER_DAY    (24*SECS_PER_HOUR)
3954         if (secs-(secs/SECS_PER_DAY*SECS_PER_DAY) < 0) {
3957             yearday += (secs/SECS_PER_DAY)-1;
3958             secs -= SECS_PER_DAY * (secs/SECS_PER_DAY - 1);
3961             yearday += (secs/SECS_PER_DAY);
3962             secs -= SECS_PER_DAY * (secs/SECS_PER_DAY);
3965     else if (secs >= SECS_PER_DAY) {
3966         yearday += (secs/SECS_PER_DAY);
3967         secs %= SECS_PER_DAY;