allow comments in setperms inputs
This commit is contained in:
parent
c59bf16942
commit
ef751c4d07
|
@ -401,7 +401,7 @@ sub get_set_perms
|
||||||
$perms =~ s/^\s*R /READERS /mg;
|
$perms =~ s/^\s*R /READERS /mg;
|
||||||
$perms =~ s/^\s*RW /WRITERS /mg;
|
$perms =~ s/^\s*RW /WRITERS /mg;
|
||||||
for my $g ($perms =~ /^\s*(\S+)/gm) {
|
for my $g ($perms =~ /^\s*(\S+)/gm) {
|
||||||
die "invalid permission category $g\n" unless $GL_WILDREPOS_PERM_CATS =~ /(^|\s)$g(\s|$)/;
|
die "invalid permission category $g\n" unless $g =~ /^#/ or $GL_WILDREPOS_PERM_CATS =~ /(^|\s)$g(\s|$)/;
|
||||||
}
|
}
|
||||||
print "New perms are:\n";
|
print "New perms are:\n";
|
||||||
print $perms;
|
print $perms;
|
||||||
|
|
Loading…
Reference in a new issue