This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5b414d2
)
Fixed bug where Time::HiRes::time returned time adjusted to
author
Artur Bergman
<sky@nanisky.com>
Fri, 21 Sep 2001 10:33:34 +0000
(10:33 +0000)
committer
Artur 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
patch
|
blob
|
blame
|
history
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 */
- Get
Local
Time (&st);
+ Get
System
Time (&st);
tmtm.tm_sec = st.wSecond;
tmtm.tm_min = st.wMinute;
tmtm.tm_hour = st.wHour;