… | |
… | |
1169 | my ($rname, $root) = $decode_key->($rootcell); |
1169 | my ($rname, $root) = $decode_key->($rootcell); |
1170 | |
1170 | |
1171 | [$rname, $root] |
1171 | [$rname, $root] |
1172 | } |
1172 | } |
1173 | |
1173 | |
1174 | # return a binary windows fILETIME struct |
1174 | # return a binary windows FILETIME struct |
1175 | sub filetime_now { |
1175 | sub filetime_now { |
1176 | my ($s, $ms) = Time::HiRes::gettimeofday; |
1176 | my ($s, $ms) = Time::HiRes::gettimeofday; |
1177 | |
1177 | |
1178 | pack "Q<", $s = ($s * 1_000_000 + $ms) * 10 + 116_444_736_000_000_000 |
1178 | pack "Q<", $s = ($s * 1_000_000 + $ms) * 10 + 116_444_736_000_000_000 |
1179 | } |
1179 | } |