mirror of
https://github.com/webmin/webmin.git
synced 2026-03-20 08:40:24 +00:00
Fix regex
This commit is contained in:
@@ -43,7 +43,7 @@ unless (opendir ( DIR, $cwd )) {
|
||||
foreach my $aclsStr (split(/\n\n/, $output)) {
|
||||
$aclsStr =~ /#\s+file:\s*(.*)/;
|
||||
my ($file) = ($aclsStr =~ /#\s+file:\s*(.*)/);
|
||||
my @aclsA = ($aclsStr =~ /^(?!#)([\w:-]+)/gm);
|
||||
my @aclsA = ($aclsStr =~ /^(?!#)([\w\:\-\_]+)/gm);
|
||||
push(@aclsArr, [$file, \@aclsA]);
|
||||
}
|
||||
%acls = map {$_->[0] => ('<span data-acls>' . join("<br>", (grep /\S/, @{ $_->[1] })) . '</span>')} @aclsArr;
|
||||
|
||||
Reference in New Issue
Block a user