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
authorArtur Bergman <sky@nanisky.com>
Fri, 21 Sep 2001 10:33:34 +0000 (10:33 +0000)
committerArtur Bergman <sky@nanisky.com>
Fri, 21 Sep 2001 10:33:34 +0000 (10:33 +0000)
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

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;