Fix regex

This commit is contained in:
Ilia Rostovtsev
2021-02-15 13:23:21 +03:00
parent 9dd776261f
commit 0c23f381d9

View File

@@ -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;