/Compress/ modules are at version 2.021. Remove vestigal MAPs and comments.

[p5sagit/p5-mst-13.2.git] / ext / POSIX / t / time.t

diff --git a/ext/POSIX/t/time.t b/ext/POSIX/t/time.t
index 33bb556..103a161 100644 (file)
--- a/ext/POSIX/t/time.t
+++ b/ext/POSIX/t/time.t
@@ -21,10 +21,10 @@ SKIP: {
           $^O eq "MSWin32" || $^O eq "dos" || $^O eq "interix";
     tzset();
     my @tzname = tzname();
-    like($tzname[0], qr/[GMT|UTC]/i, "tzset() to GMT/UTC");
+    like($tzname[0], qr/(GMT|UTC)/i, "tzset() to GMT/UTC");
     SKIP: {
         skip "Mac OS X/Darwin doesn't handle this", 1 if $^O =~ /darwin/i;
-        like($tzname[1], qr/[GMT|UTC]/i, "The whole year?");
+        like($tzname[1], qr/(GMT|UTC)/i, "The whole year?");
     }
 }
 
@@ -36,13 +36,9 @@ is(asctime(localtime(12345678)), ctime(12345678), "asctime() and ctime() at 1234
 
 # Careful!  strftime() is locale sensative.  Let's take care of that
 my $orig_loc = setlocale(LC_TIME, "C") || die "Cannot setlocale() to C:  $!";
-if ($^O eq "MSWin32") {
-    is(ctime(0), strftime("%a %b %d %H:%M:%S %Y\n", localtime(0)),
+my $jan_16 = 15 * 86400;
+is(ctime($jan_16), strftime("%a %b %d %H:%M:%S %Y\n", localtime($jan_16)),
         "get ctime() equal to strftime()");
-} else {
-    is(ctime(0), strftime("%a %b %e %H:%M:%S %Y\n", localtime(0)),
-        "get ctime() equal to strftime()");
-}
 setlocale(LC_TIME, $orig_loc) || die "Cannot setlocale() back to orig: $!";
 
 # clock() seems to have different definitions of what it does between POSIX