Upgrade to File::Spec 0.810_01 from CPAN by Barrie Slaymaker.

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

diff --git a/t/lib/timelocal.t b/t/lib/timelocal.t
old mode 100644 (file)
new mode 100755 (executable)
index adc1b1b..359d71e
--- a/t/lib/timelocal.t
+++ b/t/lib/timelocal.t
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
 }
 
 use Time::Local;
@@ -11,7 +11,7 @@ use Time::Local;
 @time =
   (
    #year,mon,day,hour,min,sec 
-   [1970,  1,  1, 00, 00, 00],
+   [1970,  1,  2, 00, 00, 00],
    [1980,  2, 28, 12, 00, 00],
    [1980,  2, 29, 12, 00, 00],
    [1999, 12, 31, 23, 59, 59],
@@ -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;