summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
890920e)
... to allow tag patterns like:
TAG:^(application|text)/(x-)?javascript$
sub check_for_forbidden_characters($) {
my $string = shift;
sub check_for_forbidden_characters($) {
my $string = shift;
- my $allowed = '[-=\dA-Za-z~{}\[\]:./();\t ,+@"_%?&*^]';
+ my $allowed = '[-=\dA-Za-z~{}\[\]:./();\t ,+@"_%?&*^|]';
unless ($string =~ m/^$allowed*$/o) {
my $forbidden = $string;
unless ($string =~ m/^$allowed*$/o) {
my $forbidden = $string;