summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--debian/changelog6
-rwxr-xr-xsrc/ivymon2
-rwxr-xr-xsrc/ivyreplay2
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;