projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
82c5749
)
lib/Time/Local.t: time_t is unsigned on VMS
author
Craig A. Berry
<craigberry@mac.com>
Sat, 23 Apr 2005 18:25:52 +0000
(13:25 -0500)
committer
H.Merijn Brand
<h.m.brand@xs4all.nl>
Sun, 24 Apr 2005 09:12:37 +0000
(09:12 +0000)
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <
426AD980
.2010801@mac.com>
p4raw-id: //depot/perl@24310
lib/Time/Local.t
patch
|
blob
|
history
diff --git
a/lib/Time/Local.t
b/lib/Time/Local.t
index
30a6d14
..
b2c1215
100755
(executable)
--- 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;