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/ivyreplay | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/ivyreplay')

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