diff options
| author | Paul Green <Paul.Green@stratus.com> | 2002-03-28 03:22:00 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-28 13:48:29 +0000 |
| commit | 88db9e9aa9fc1ee16227e2d3ab69cd2cce234675 (patch) | |
| tree | b19880c9dafcbb2f1b4e83ab1a34c40d7a959164 /lib/Time | |
| parent | a5f25d7aeb90fd429ad81529bb602f402d5f9724 (diff) | |
| download | perl-88db9e9aa9fc1ee16227e2d3ab69cd2cce234675.tar.gz | |
Fix lib/Time/Local.pm for VOS
Message-Id: <200203281322.IAA15632@mailhub1.stratus.com>
p4raw-id: //depot/perl@15583
Diffstat (limited to 'lib/Time')
| -rw-r--r-- | lib/Time/Local.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lib/Time/Local.pm b/lib/Time/Local.pm index 686a3d855e..a8f2e490a3 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; |