tzset

Author: khwilliamson

ext/POSIX/POSIX.xs

@@ -1407,9 +1407,6 @@ char *tzname[] = { "" , "" };
 #  endif
 #  ifdef __MINGW32__
 #    define mode_t short
-#    ifndef tzset
-#      define tzset()		not_here("tzset")
-#    endif
 #    ifndef _POSIX_OPEN_MAX
 #      define _POSIX_OPEN_MAX	FOPEN_MAX	/* XXX bogus ? */
 #    endif

ext/POSIX/t/time.t

@@ -18,12 +18,11 @@ $ENV{TZ} = "EST5EDT";
 
 SKIP: {
     # It looks like POSIX.xs claims that only VMS and Mac OS traditional
-    # don't have tzset().  Win32 works to call the function, but it doesn't
+    # don't have tzset().  Win32 XXX works to call the function, but it doesn't
     # actually do anything.  Cygwin works in some places, but not others.  The
     # other Win32's below are guesses.
     skip "No tzset()", 1
-       if $^O eq "VMS" || $^O eq "cygwin" ||
-          $^O eq "MSWin32" || $^O eq "interix";
+       if $^O eq "VMS" || $^O eq "cygwin" || $^O eq "interix";
     tzset();
     SKIP: {
         my @tzname = tzname();
@@ -43,8 +42,7 @@ $ENV{TZ} = "UTC0UTC";
 
 SKIP: {
     skip "No tzset()", 2
-       if $^O eq "VMS" || $^O eq "cygwin" ||
-          $^O eq "MSWin32" || $^O eq "interix";
+       if $^O eq "VMS" || $^O eq "cygwin" || $^O eq "interix";
     tzset();
     my @tzname = tzname();
     like($tzname[0], qr/(GMT|UTC)/i, "tzset() to GMT/UTC");

t/op/time.t

@@ -51,7 +51,6 @@ SKIP: {
     # This conditional of "No tzset()" is stolen from ext/POSIX/t/time.t
     skip "No tzset()", 1
         if $^O eq "VMS" || $^O eq "cygwin" ||
-           $^O eq "MSWin32" ||
            $^O eq "interix";
 
 # check that localtime respects changes to $ENV{TZ}