the old, specific CENA perl module gettimeofday-perl has been replaced by

the CPAN world-wide used Time::HiRes module

1 files changed, 6 insertions, 6 deletions

diff --git a/Ivy.pm b/Ivy.pm
index 223b064..06edc17 100644
--- a/Ivy.pm
+++ b/Ivy.pm
@@ -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};