diff options
Diffstat (limited to 'Ivy.pm')
| -rw-r--r-- | Ivy.pm | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -1,7 +1,7 @@ # # Ivy, Perl interface # -# Copyright 1997-2002 +# Copyright 1997-2003 # Centre d'Études de la Navigation Aérienne # # Authors: Alexandre Bustico <bustico@cena.fr> @@ -35,7 +35,7 @@ package Ivy ; use Sys::Hostname; use IO::Socket; use strict; -use Time::Gettimeofday; +use Time::HiRes qw(gettimeofday); use Carp; use IO::Socket::Multicast; @@ -943,7 +943,7 @@ sub after ($$;$) # si la valeur de timout est negative : c'est un after sinon # c'est un repeat $afterList{++$afterId} = [AFTER, $timeAfter, - timeofday()+$timeAfter, $cbListRef]; + gettimeofday()+$timeAfter, $cbListRef]; return ($afterId); } # end after @@ -961,7 +961,7 @@ sub repeat ($$;$) $timeAfter /= 1000; $selectTimout = $timeAfter if $timeAfter < $selectTimout; - $afterList{++$afterId}= [REPEAT, $timeAfter, timeofday()+$timeAfter, + $afterList{++$afterId}= [REPEAT, $timeAfter, gettimeofday()+$timeAfter, $cbListRef]; return ($afterId); } # end repeat @@ -1005,7 +1005,7 @@ sub afterResetTimer ($;$) my $id = shift; if (defined ($id) && defined $afterList{$id}) { - $afterList{$id}->[2] = $afterList{$id}->[1] + timeofday(); + $afterList{$id}->[2] = $afterList{$id}->[1] + gettimeofday(); } } # end afterResetTimer @@ -1547,7 +1547,7 @@ sub _tkFileEvent ($$) ############### PROCEDURE SCAN AFTER sub _scanAfter () { - my $stamp = timeofday (); + my $stamp = gettimeofday (); $selectTimout = MAX_TIMOUT; foreach my $afk (keys %afterList) { my $af = $afterList{$afk}; |