From d1469be3a269427dc4df67600ed31d0f384fc81d Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alexander@sulfrian.net>
Date: Wed, 12 Feb 2014 05:06:30 +0100
Subject: fix array creation

---
 lib/VServer.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/VServer.pm b/lib/VServer.pm
index f6543a7..7ad1de7 100644
--- a/lib/VServer.pm
+++ b/lib/VServer.pm
@@ -129,13 +129,13 @@ sub get_net($) {
     open(my $cacct, "<", "$dir/cacct") || return undef;
     while (<$cacct>) {
         if ($_ =~ m/^UNIX:\s*[0-9]+\/([0-9]+)\s+[0-9]+\/([0-9]+)\s+[0-9]+\/([0-9]+)\s/) {
-            %net{'unix'} = ($1, $2, $3);
+            $net{'unix'} = list($1, $2, $3);
         }
         elsif ($_ =~ m/^INET:\s*[0-9]+\/([0-9]+)\s+[0-9]+\/([0-9]+)\s+[0-9]+\/([0-9]+)\s/) {
-            %net{'inet'} = ($1, $2, $3);
+            $net{'inet'} = list($1, $2, $3);
         }
         elsif ($_ =~ m/^INET6:\s*[0-9]+\/([0-9]+)\s+[0-9]+\/([0-9]+)\s+[0-9]+\/([0-9]+)\s/) {
-            %net{'inet6'} = ($1, $2, $3);
+            $net{'inet6'} = list($1, $2, $3);
         }
     }
     close($cacct);
-- 
cgit v1.2.3-1-g7c22