diff options
Diffstat (limited to 'Bugzilla/WebService/Util.pm')
-rw-r--r-- | Bugzilla/WebService/Util.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Bugzilla/WebService/Util.pm b/Bugzilla/WebService/Util.pm index b0621b000..29ff05448 100644 --- a/Bugzilla/WebService/Util.pm +++ b/Bugzilla/WebService/Util.pm @@ -203,7 +203,7 @@ sub _delete_bad_keys { foreach my $key (keys %$item) { # Making something a hash key always untaints it, in Perl. # However, we need to validate our argument names in some way. - # We know that all hash keys passed in to the WebService will + # We know that all hash keys passed in to the WebService will # match \w+, so we delete any key that doesn't match that. if ($key !~ /^[\w\.\-]+$/) { delete $item->{$key}; @@ -220,14 +220,14 @@ sub validate { # sent any parameters at all, and we're getting @keys where # $params should be. return ($self, undef) if (defined $params and !ref $params); - - # If @keys is not empty then we convert any named + + # If @keys is not empty then we convert any named # parameters that have scalar values to arrayrefs # that match. foreach my $key (@keys) { if (exists $params->{$key}) { - $params->{$key} = ref $params->{$key} - ? $params->{$key} + $params->{$key} = ref $params->{$key} + ? $params->{$key} : [ $params->{$key} ]; } } @@ -309,7 +309,7 @@ internally in the WebService code. =head1 SYNOPSIS - filter({ include_fields => ['id', 'name'], + filter({ include_fields => ['id', 'name'], exclude_fields => ['name'] }, $hash); my $wants = filter_wants $params, 'field_name'; validate(@_, 'ids'); |