From 2672d9f6f20f8046d44a637b341a7dca3315fa70 Mon Sep 17 00:00:00 2001
From: etienne
Date: Wed, 18 Apr 2007 12:14:22 +0000
Subject: make ivyreplay compatible to Perl-Tk 804.

---
 src/ivymon    | 2 +-
 src/ivyreplay | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

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;
-- 
cgit v1.1