make ivyreplay compatible to Perl-Tk 804.

2 files changed, 2 insertions, 2 deletions

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;