135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

#374 fix ACL with negation (earendilfr)

Browse Source
This commit is contained in:
Oliver Gorwits
2018-02-15 20:03:05 +00:00
parent 8a6451ceec
commit 4abee86efb
2 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Changes
View File

@@ -1,3 +1,9 @@
2.039006 - 2018-02-15
[BUG FIXES]
* #374 fix ACL with negation (earendilfr)
2.039005 - 2018-02-15 2.039005 - 2018-02-15
[BUG FIXES] [BUG FIXES]

3
lib/App/Netdisco/Util/Permission.pm
View File

@@ -105,7 +105,8 @@ sub check_acl {
my $name = undef; # only look up once, and only if qr// is used my $name = undef; # only look up once, and only if qr// is used
my $ropt = { retry => 1, retrans => 1, udp_timeout => 1, tcp_timeout => 2 }; my $ropt = { retry => 1, retrans => 1, udp_timeout => 1, tcp_timeout => 2 };
INLIST: foreach my $item (@$config) { INLIST: foreach (@$config) {
my $item = $_; # must copy so that we can modify safely
next INLIST if $item eq 'op:and'; next INLIST if $item eq 'op:and';
if (ref qr// eq ref $item) { if (ref qr// eq ref $item) {