[MacPerl] time problems

[Randal Pittelli <pittelli@ehsct7.envmed.rochester.edu>]

I can't get time-conversion to work properly on a client's machine:
MacPerl5, MacOS 7.5 (non-powerPC).

If I do a timelocal() on localtime(), the return seconds is not only off
by a HUGE number (initially need to set $date_correct = -14230008800 to
get the two times below to agree), but the deviation diverges with time!

It's important that I can do the double-conversion as below (so I can
compare NOW seconds with an 'unknown' date/time seconds):

# ----------------
$date_correct = 0;
require "timelocal.pl";

@now=localtime();
$testsec=&timelocal(@now) + $date_correct;
@t=localtime($testsec);
$n = "$now[4]/$now[3]/$now[5] $now[2]:$now[1]:$now[0]";
$r = "$t[4]/$t[3]/$t[5] $t[2]:$t[1]:$t[0]";

print "NOW TIME: $n\n";
print "RET TIME: $r\n";

# NOW TIME should equal RET TIME !
# -----------------

Does anyone know whether this is typical for a Mac and whether this
problem is fixed in any particular (preferably 5.001+) build?
(could someone PLEASE run this on their system?)

At present, I don't know the exact build (not familiar with Mac Perl
enough to tell the client how to get specific build over the phone), but
I could find out with some help...REALLY just want to know what build
this works on!

-Randy


-- 
<----------------------------------------->
| Randal Pittelli                         |
| Dept of Environmental Medicine          |
| Univ of Rochester Medical Center        |
| Rochester, NY 14642                     |
|                                         |
| TEL: (716) 275-0797                     |
| FAX: (716) 256-2591                     |
| pittelli@envmed.rochester.edu           |
| http://www.envmed.rochester.edu/wwwrlp/ |
| --------------------------------------- |
|  "Love only a god that dances" - F.N.   |
<----------------------------------------->

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch