This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lib/Time/Local.t: time_t is unsigned on VMS
authorCraig A. Berry <craigberry@mac.com>
Sat, 23 Apr 2005 18:25:52 +0000 (13:25 -0500)
committerH.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

index 30a6d14..b2c1215 100755 (executable)
@@ -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;