avoid perl warning

This commit is contained in:
Dietmar Maurer 2013-01-22 11:44:41 +01:00
parent 2a29deac1f
commit bca6fe1d85

View File

@ -106,7 +106,7 @@ sub compute_alg1 {
&$log("idlist2 $vmid $d->{balloon}, $d->{balloon_min}, $d->{freemem}\n");
} else {
push @$idlist1, $vmid;
&$log("idlist1 $vmid $d->{balloon}, $d->{balloon_min}, $d->{freemem}\n");
&$log("idlist1 $vmid $d->{balloon}, $d->{balloon_min}\n");
}
}