[asperl] various changes to get asperl working under Borland

[p5sagit/p5-mst-13.2.git] / t / lib / timelocal.t

diff --git a/t/lib/timelocal.t b/t/lib/timelocal.t
index adc1b1b..938ca69 100755 (executable)
--- a/t/lib/timelocal.t
+++ b/t/lib/timelocal.t
@@ -19,6 +19,9 @@ use Time::Local;
    [2010, 10, 12, 14, 13, 12],
   );
 
+# use vmsish 'time' makes for oddness around the Unix epoch
+if ($^O eq 'VMS') { $time[0][2]++ }
+
 print "1..", @time * 2 + 5, "\n";
 
 $count = 1;