avoid perl warning

This commit is contained in:
Dietmar Maurer 2013-01-17 10:02:47 +01:00
parent 3c353ed26d
commit 90c3fae4b4

View File

@ -40,7 +40,9 @@ sub extract_vm_stats {
type => $data->{type}, type => $data->{type},
}; };
if (my $d = $rrd->{"pve2-vm/$vmid"}) { my $d;
if ($d = $rrd->{"pve2-vm/$vmid"}) {
$entry->{uptime} = ($d->[0] || 0) + 0; $entry->{uptime} = ($d->[0] || 0) + 0;
$entry->{name} = $d->[1]; $entry->{name} = $d->[1];
@ -56,7 +58,7 @@ sub extract_vm_stats {
$entry->{diskread} = ($d->[11] || 0) + 0; $entry->{diskread} = ($d->[11] || 0) + 0;
$entry->{diskwrite} = ($d->[12] || 0) + 0; $entry->{diskwrite} = ($d->[12] || 0) + 0;
} elsif (my $d = $rrd->{"pve2.3-vm/$vmid"}) { } elsif ($d = $rrd->{"pve2.3-vm/$vmid"}) {
$entry->{uptime} = ($d->[0] || 0) + 0; $entry->{uptime} = ($d->[0] || 0) + 0;
$entry->{name} = $d->[1]; $entry->{name} = $d->[1];