From owner-freebsd-hubs  Tue Mar  4 02:10:20 1997
Return-Path: <owner-hubs>
Received: (from root@localhost)
          by freefall.freebsd.org (8.8.5/8.8.5) id CAA12950
          for hubs-outgoing; Tue, 4 Mar 1997 02:10:20 -0800 (PST)
Received: from Campino.Informatik.RWTH-Aachen.DE (campino.Informatik.RWTH-Aachen.DE [137.226.116.240])
          by freefall.freebsd.org (8.8.5/8.8.5) with ESMTP id CAA12911
          for <freebsd-hubs@freebsd.org>; Tue, 4 Mar 1997 02:09:58 -0800 (PST)
Received: from gil.physik.rwth-aachen.de (gilberto.physik.rwth-aachen.de [137.226.31.2]) by Campino.Informatik.RWTH-Aachen.DE (RBI-Z-5/8.6.12)
	with ESMTP id LAA10621; Tue, 4 Mar 1997 11:10:40 +0100 (MET)
Received: (from kuku@localhost) by gil.physik.rwth-aachen.de (8.8.4/8.6.9) id LAA17430; Tue, 4 Mar 1997 11:18:37 +0100 (MET)
Date: Tue, 4 Mar 1997 11:18:37 +0100 (MET)
From: Christoph Kukulies <kuku@gilberto.physik.RWTH-Aachen.DE>
Message-Id: <199703041018.LAA17430@gil.physik.rwth-aachen.de>
To: de-bsd-hubs@blues.physik.rwth-aachen.de, freebsd-hubs@freebsd.org
Subject: timelocal.pl (mirror problem)
Sender: owner-hubs@freebsd.org
X-Loop: FreeBSD.org
Precedence: bulk


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