diff options
-rw-r--r-- | lib/VServer.pm | 6 |
1 files 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); |