make ivyreplay compatible to Perl-Tk 804.

3 files changed, 8 insertions, 2 deletions

diff --git a/debian/changelog b/debian/changelog
index 20bb2a0..220434f 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+ivymon (1.19) unstable; urgency=low
+
+  * make ivyreplay compatible to Perl-Tk 804. 
+
+ -- Daniel Etienne <etienne@cena.fr>  Wed, 18 Apr 2007 14:13:00 +0200
+
 ivymon (1.18.1) unstable; urgency=low
 
   * suppressed debug output. 
diff --git a/src/ivymon b/src/ivymon
index 8e7f4be..1082486 100755
--- a/src/ivymon
+++ b/src/ivymon
@@ -93,7 +93,7 @@ use Tk::CmdLine;
 use vars qw/$VERSION $opt_help $opt_b $opt_bus $opt_history @opt_bind 
             @opt_send $opt_size $opt_undersize $opt_out $opt_debug/;
 # **** VERSION ****
-$VERSION = '1.18.1';
+$VERSION = '1.19';
 
 # options initialisation
 # geometry
diff --git a/src/ivyreplay b/src/ivyreplay
index 8d34b61..c9ed64a 100755
--- a/src/ivyreplay
+++ b/src/ivyreplay
@@ -558,7 +558,7 @@ sub replayStart {
                            -background => $replay_bg);
       }
       $replay_last_time = $replay_time;
-      my $i = $t->tagRanges($replay_time);
+      my ($i) = $t->tagRanges($replay_time);
       $t->see($i) if defined $i;
    }
    $replay_time += $replay_time_granularity;