diff options
-rw-r--r-- | Bugzilla/Bug.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Bugzilla/Bug.pm b/Bugzilla/Bug.pm index 98547cd95..326c9d84d 100644 --- a/Bugzilla/Bug.pm +++ b/Bugzilla/Bug.pm @@ -3709,6 +3709,11 @@ sub AUTOLOAD { $self->{_multi_selects} ||= [Bugzilla->get_fields( {custom => 1, type => FIELD_TYPE_MULTI_SELECT })]; if ( grep($_->name eq $attr, @{$self->{_multi_selects}}) ) { + # There is a bug in Perl 5.10.0, which is fixed in 5.10.1, + # which taints $attr at this point. trick_taint() can go + # away once we require 5.10.1 or newer. + trick_taint($attr); + $self->{$attr} ||= Bugzilla->dbh->selectcol_arrayref( "SELECT value FROM bug_$attr WHERE bug_id = ? ORDER BY value", undef, $self->id); |