allow comments in setperms inputs

This commit is contained in:
Sitaram Chamarty 2012-01-26 10:44:52 +05:30
parent c59bf16942
commit ef751c4d07

View file

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