From 5ea0b3af5779a09ebd42e5ff0594128f89b3774d Mon Sep 17 00:00:00 2001 From: Paul Buetow Date: Sun, 7 Aug 2011 12:08:48 +0000 Subject: tagged v0.2.0.1 --- CHANGELOG | 3 +++ loadbars.pl | 6 +++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/CHANGELOG b/CHANGELOG index 8c5abb8..ed2e3f8 100644 --- a/CHANGELOG +++ b/CHANGELOG @@ -1,3 +1,6 @@ +So 7. Aug 14:06:45 CEST 2011 +* Released v0.2.0.1 (Bugfixes only) + Sa 6. Aug 22:04:15 CEST 2011 * Released v0.2.0 (new major version) * No interactive CLI shell anymore but instead hotkeys for the diff --git a/loadbars.pl b/loadbars.pl index b0b0c17..5e06bb6 100755 --- a/loadbars.pl +++ b/loadbars.pl @@ -49,7 +49,7 @@ use threads::shared; use constant { DEPTH => 8, - VERSION => 'loadbars v0.2.1-devel', + VERSION => 'loadbars v0.2.0.1', COPYRIGHT => '2010-2011 (c) Paul Buetow ', BLACK => SDL::Color->new(-r => 0x00, -g => 0x00, -b => 0x00), BLUE => SDL::Color->new(-r => 0x00, -g => 0x00, -b => 0xff), @@ -342,6 +342,7 @@ sub main_loop ($@) { my %is_host_summary; my $new_num_stats = keys %CPUSTATS; + if ($new_num_stats != $num_stats) { %prev_stats = (); %last_loads = (); @@ -351,8 +352,7 @@ sub main_loop ($@) { } # Avoid division by null - my $div = $num_stats - 1; - my $width = $CONF{width} / ($div ? $div : 1); + my $width = $CONF{width} / ($num_stats ? $num_stats : 1); my $barnum = -1; for my $key (sort keys %CPUSTATS) { -- cgit v1.2.3