This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fixed bug where Time::HiRes::time returned time adjusted to
[perl5.git] / ext / Time / HiRes / HiRes.xs
index 4087455..97ea559 100644 (file)
@@ -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;