diff options
author | Alexander Sulfrian <alexander@sulfrian.net> | 2014-02-12 05:06:00 +0100 |
---|---|---|
committer | Alexander Sulfrian <alexander@sulfrian.net> | 2014-02-12 05:06:00 +0100 |
commit | 42f165fbede243c9fbd6e07b920e82a6e62b6a77 (patch) | |
tree | 4b1542b5fab20a1fbc9648102240421fd9e2548c /lib | |
parent | ad36850000ddeaecfed93f996942052fcac10345 (diff) | |
download | vserver-perl-42f165fbede243c9fbd6e07b920e82a6e62b6a77.tar.gz vserver-perl-42f165fbede243c9fbd6e07b920e82a6e62b6a77.tar.bz2 vserver-perl-42f165fbede243c9fbd6e07b920e82a6e62b6a77.zip |
fix regex syntax
Diffstat (limited to 'lib')
-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 eec95f2..f6543a7 100644 --- a/lib/VServer.pm +++ b/lib/VServer.pm @@ -128,13 +128,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/) { + if ($_ =~ m/^UNIX:\s*[0-9]+\/([0-9]+)\s+[0-9]+\/([0-9]+)\s+[0-9]+\/([0-9]+)\s/) { %net{'unix'} = ($1, $2, $3); } - elsif ($_ =~ m/^INET:\s*[0-9]+/([0-9]+)\s+[0-9]+/([0-9]+)\s+[0-9]+/([0-9]+)\s/) { + elsif ($_ =~ m/^INET:\s*[0-9]+\/([0-9]+)\s+[0-9]+\/([0-9]+)\s+[0-9]+\/([0-9]+)\s/) { %net{'inet'} = ($1, $2, $3); } - elsif ($_ =~ m/^INET6:\s*[0-9]+/([0-9]+)\s+[0-9]+/([0-9]+)\s+[0-9]+/([0-9]+)\s/) { + elsif ($_ =~ m/^INET6:\s*[0-9]+\/([0-9]+)\s+[0-9]+\/([0-9]+)\s+[0-9]+\/([0-9]+)\s/) { %net{'inet6'} = ($1, $2, $3); } } |