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

[p5sagit/p5-mst-13.2.git] / ext / Time-Piece / t / 02core.t

diff --git a/ext/Time-Piece/t/02core.t b/ext/Time-Piece/t/02core.t
index 7c1495d..5610bcb 100644 (file)
--- a/ext/Time-Piece/t/02core.t
+++ b/ext/Time-Piece/t/02core.t
@@ -47,8 +47,14 @@ cmp_ok($t->datetime, 'eq','2000-02-29T12:34:56');
 cmp_ok($t->daylight_savings, '==', 0);
 
 # ->tzoffset?
-{
-    local $ENV{TZ} = "EST";
+my $is_pseudo_fork = 0;
+if (defined &Win32::GetCurrentProcessId
+    ? $$ != Win32::GetCurrentProcessId() : $^O eq "MSWin32" && $$ < 0) {
+    $is_pseudo_fork = 1;
+}
+SKIP: {
+    skip "can't register TZ changes in a pseudo-fork", 2 if $is_pseudo_fork;
+    local $ENV{TZ} = "EST5";
     Time::Piece::_tzset();  # register the environment change
     my $lt = localtime;
     cmp_ok(scalar($lt->tzoffset), 'eq', '-18000');