diff options
| author | Craig A. Berry <craigberry@mac.com> | 2005-04-23 13:25:52 -0500 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-04-24 09:12:37 +0000 |
| commit | 5c415a7a73a5d8a3f7e2df6cfea8750870e920aa (patch) | |
| tree | 7a214f855caefdc3fc723e9207ad0dff512ff2d4 /lib/Time | |
| parent | 82c57498f7f8f27d0d5411ddaf2f473d905b3929 (diff) | |
| download | perl-5c415a7a73a5d8a3f7e2df6cfea8750870e920aa.tar.gz | |
lib/Time/Local.t: time_t is unsigned on VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <426AD980.2010801@mac.com>
p4raw-id: //depot/perl@24310
Diffstat (limited to 'lib/Time')
| -rwxr-xr-x | lib/Time/Local.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Time/Local.t b/lib/Time/Local.t index 30a6d14ef5..b2c1215ca5 100755 --- a/lib/Time/Local.t +++ b/lib/Time/Local.t @@ -56,7 +56,10 @@ my @neg_time = my $neg_epoch_ok = defined ((localtime(-3600))[0]) ? 1 : 0; # use vmsish 'time' makes for oddness around the Unix epoch -if ($^O eq 'VMS') { $time[0][2]++ } +if ($^O eq 'VMS') { + $time[0][2]++; + $neg_epoch_ok = 0; # time_t is unsigned +} my $tests = (@time * 12); $tests += @neg_time * 12; |