From 90c3fae4b41b19c40b2db95fee0f417fb2c93209 Mon Sep 17 00:00:00 2001
From: Dietmar Maurer <dietmar@proxmox.com>
Date: Thu, 17 Jan 2013 10:02:47 +0100
Subject: [PATCH] avoid perl warning

---
 PVE/API2Tools.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/PVE/API2Tools.pm b/PVE/API2Tools.pm
index b1cba2ff..533c2afa 100644
--- a/PVE/API2Tools.pm
+++ b/PVE/API2Tools.pm
@@ -40,7 +40,9 @@ sub extract_vm_stats {
 	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->{name} = $d->[1];
@@ -56,7 +58,7 @@ sub extract_vm_stats {
 	$entry->{diskread} = ($d->[11] || 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->{name} = $d->[1];