Date: Tue, 4 Mar 1997 11:18:37 +0100 (MET) From: Christoph Kukulies <kuku@gilberto.physik.RWTH-Aachen.DE> To: de-bsd-hubs@blues.physik.rwth-aachen.de, freebsd-hubs@freebsd.org Subject: timelocal.pl (mirror problem) Message-ID: <199703041018.LAA17430@gil.physik.rwth-aachen.de>
next in thread | raw e-mail | index | archive | help
I'm trying to figure out why (since a couple of days) my mirror
scripts don't work anymore. I ran it interactively now and found the
following:
timelocal:/usr/share/perl/timelocal.pl:73 Caught a SIGFPE shutting down at /home/kuku/mirror/mirror line 3596, <NS> line 1150.
The last file scanned at ftp.freebsd.org at the time the sigfpe was happening
was
remote: distfiles/lcircle10.tfm 820 668386800 f 0664
remote: distfiles/vmsbackup.tar.Z 16001 647128800 f 0664
(which need not be very significant because of buffering etc.)
timelocal.pl:73: looks like:
package timelocal;
sub cheat {
$year = $_[5];
$month = $_[4];
die "Month out of range 0..11 in ctime.pl\n" if $month > 11;
$guess = $^T;
@g = gmtime($guess);
$year += $YearFix if $year < $epoch[5];
while ($diff = $year - $g[5]) {
$guess += $diff * (363 * $DAYS);
>>>>> @g = gmtime($guess); <<<<<<<
}
while ($diff = $month - $g[4]) {
$guess += $diff * (27 * $DAYS);
@g = gmtime($guess);
}
$g[3]--;
$guess -= $g[0] * $SEC + $g[1] * $MIN + $g[2] * $HR + $g[3] * $DAYS;
$cheat{$ym} = $guess;
}
1;
Now I'm not a perl expert to know where to go from here.
--
Chris Christoph P. U. Kukulies kuku@gil.physik.rwth-aachen.de
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?199703041018.LAA17430>