fix lack of declaration which made ivy.pm to die on etch

2 files changed, 9 insertions, 3 deletions

diff --git a/Ivy.pm b/Ivy.pm
index e57f4d6..78d5cd0 100644
--- a/Ivy.pm
+++ b/Ivy.pm
@@ -41,6 +41,7 @@ use IO::Socket::Multicast;
 
 use vars qw($VERSION);
 use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK);
+use Socket qw(TCP_NODELAY);
 
 # to compute the VERSION from the CVS tag (or if no tag, as the cvs file revision)
 my $TAG= q$Name:  $;
@@ -218,12 +219,11 @@ use constant MAX_TIMOUT => 1000;
 #    small bursts of information without getting an immediate response,
 #    where timely delivery of data is required (the canonical example is
 #    mouse movements).
+#    Since Ivy is most of the time used to send events, we will priviligiate
+#    lag over throughtput, so  _TCP_NO_DELAY_ACTIVATED is set to 1
 use constant TCP_NO_DELAY_ACTIVATED => 1;
 
 
-#    Since Ivy is most of the time used to send events, we will priviligiate
-#    lag over throughtput, so  _TCP_NO_DELAY_ACTIVATED is set to 1
-use constant MAX_TIMOUT => 1000;
 # pour pouvoir employer les regexps perl. Attention lors de l'utilisation
 # ne pas mettre un \n dans une chaine entre "" car l'\n sera interprete.
 use constant REG_PERLISSISME => ('w' => '[a-zA-Z0-9_]',
diff --git a/debian/changelog b/debian/changelog
index 1c4b681..36bed66 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+ivy-perl (4.25-9) unstable; urgency=low
+
+  * fix lack of declaration which made ivy.pm to die on etch
+
+ -- Alexandre Bustico <bustico@cena.fr>  Mon, 6 July 2009 16:43:00 +0200	
+
 ivy-perl (4.25-8) unstable; urgency=low
 
   * New upstream version: desactivation of the nagle buffering for TCP sockets, since ivy is most of the time used to send events,