diff options
| author | Alexander Sulfrian <alexander@sulfrian.net> | 2014-02-12 05:06:30 +0100 |
|---|---|---|
| committer | Alexander Sulfrian <alexander@sulfrian.net> | 2014-02-12 05:06:30 +0100 |
| commit | d1469be3a269427dc4df67600ed31d0f384fc81d (patch) | |
| tree | 78076fc149f6be1d6a2e74634ff26fe19ae37a54 | |
| parent | 42f165fbede243c9fbd6e07b920e82a6e62b6a77 (diff) | |
| download | vserver-perl-d1469be3a269427dc4df67600ed31d0f384fc81d.tar.gz vserver-perl-d1469be3a269427dc4df67600ed31d0f384fc81d.tar.bz2 vserver-perl-d1469be3a269427dc4df67600ed31d0f384fc81d.zip | |
fix array creation
| -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); |