From: Paul Green <Paul.Green@stratus.com>
Date: Thu, 28 Mar 2002 08:22:00 +0000 (-0500)
Subject: Fix lib/Time/Local.pm for VOS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=88db9e9aa9fc1ee16227e2d3ab69cd2cce234675;p=p5sagit%2Fp5-mst-13.2.git

Fix lib/Time/Local.pm for VOS
Message-Id: <200203281322.IAA15632@mailhub1.stratus.com>

p4raw-id: //depot/perl@15583
---

diff --git a/lib/Time/Local.pm b/lib/Time/Local.pm
index 686a3d8..a8f2e49 100644
--- a/lib/Time/Local.pm
+++ b/lib/Time/Local.pm
@@ -23,7 +23,15 @@ my $Century      = $NextCentury - 100;
 my (%Options, %Cheat);
 
 # Determine the EPOC day for this machine
-my $Epoc = 0; $Epoc = _daygm(gmtime(0));
+my $Epoc = 0;
+if ($^O eq 'vos') {
+# work around posix-977 -- VOS doesn't handle dates in
+# the range 1970-1980.
+  $Epoc = _daygm((0, 0, 0, 1, 0, 70, 4, 0));
+} else {
+  $Epoc = _daygm(gmtime(0));
+}
+
 %Cheat=(); # clear the cache as epoc has changed
 
 my $MaxInt = ((1<<(8 * $Config{intsize} - 2))-1)*2 + 1;