summaryrefslogtreecommitdiff
path: root/cpuload.pl
diff options
context:
space:
mode:
Diffstat (limited to 'cpuload.pl')
-rwxr-xr-xcpuload.pl8
1 files changed, 7 insertions, 1 deletions
diff --git a/cpuload.pl b/cpuload.pl
index ef45c35..3ebfc25 100755
--- a/cpuload.pl
+++ b/cpuload.pl
@@ -129,6 +129,11 @@ sub draw_background ($$$) {
$app->update($rect);
}
+sub null ($) {
+ my $arg = shift;
+ return defined $arg ? $arg : 0;
+}
+
sub graph_stats ($$) {
my ($app, $colors) = @_;
@@ -155,6 +160,7 @@ sub graph_stats ($$) {
if ($new_num_stats != $num_stats) {
%prev_stats = ();
%last_loads = ();
+
$num_stats = $new_num_stats;
$width = WIDTH / $num_stats - 1;
draw_background $app, $colors, $rect_bg;
@@ -170,7 +176,7 @@ sub graph_stats ($$) {
}
my $prev_stat = $prev_stats{$key};
- my %loads = $stat{TOTAL} == $prev_stat->{TOTAL} ? %stat : map { $_ => $stat{$_} - $prev_stat->{$_} } keys %stat;
+ my %loads = null $stat{TOTAL} == null $prev_stat->{TOTAL} ? %stat : map { $_ => $stat{$_} - $prev_stat->{$_} } keys %stat;
$prev_stats{$key} = \%stat;
%loads = normalize_loads %loads;