Fixed bug where Time::HiRes::time returned time adjusted to

timezone! GetSystemTime should be available on all Win32
platforms we support. Perhaps Time::HiRes should be extended to
support WinCE and Novell?

p4raw-id: //depot/perl@12105

diff --git a/ext/Time/HiRes/HiRes.xs b/ext/Time/HiRes/HiRes.xs
index 4087455..97ea559 100644 (file)
--- a/ext/Time/HiRes/HiRes.xs
+++ b/ext/Time/HiRes/HiRes.xs
@@ -70,7 +70,7 @@ gettimeofday (struct timeval *tp, int nothing)
  time_t tt;
  struct tm tmtm;
  /* mktime converts local to UTC */
- GetLocalTime (&st);
+ GetSystemTime (&st);
  tmtm.tm_sec = st.wSecond;
  tmtm.tm_min = st.wMinute;
  tmtm.tm_hour = st.wHour;