avoid warning about undefined values

diff --git a/src/PVE/LXC.pm b/src/PVE/LXC.pm
index 76c512d2720f41eda853f837db167bd570f26a88..17956d2d0bb559bd8a6e633fae8b41a92b534e0b 100644 (file)
--- a/src/PVE/LXC.pm
+++ b/src/PVE/LXC.pm
@@ -760,11 +760,12 @@ sub vmstatus {
        $d->{swap} = read_cgroup_value('memory', $vmid, 'memory.memsw.usage_in_bytes') - $d->{mem};
 
        my $blkio_bytes = read_cgroup_value('blkio', $vmid, 'blkio.throttle.io_service_bytes', 1);
-       my @bytes = split /\n/, $blkio_bytes;
+       my @bytes = split(/\n/, $blkio_bytes);
        foreach my $byte (@bytes) {
-           my ($key, $value) = $byte =~ /(Read|Write)\s+(\d+)/;
-           $d->{diskread} = $2 if $key eq 'Read';
-           $d->{diskwrite} = $2 if $key eq 'Write';
+           if (my ($key, $value) = $byte =~ /(Read|Write)\s+(\d+)/) {
+               $d->{diskread} = $2 if $key eq 'Read';
+               $d->{diskwrite} = $2 if $key eq 'Write';
+           }
        }
     }