diff options
Diffstat (limited to 'Bugzilla')
| -rwxr-xr-x | Bugzilla/Bug.pm | 2 | ||||
| -rw-r--r-- | Bugzilla/Chart.pm | 5 | ||||
| -rw-r--r-- | Bugzilla/Util.pm | 28 |
3 files changed, 6 insertions, 29 deletions
diff --git a/Bugzilla/Bug.pm b/Bugzilla/Bug.pm index 8be6705ef..8b6302b92 100755 --- a/Bugzilla/Bug.pm +++ b/Bugzilla/Bug.pm @@ -43,6 +43,8 @@ use Bugzilla::Util; use Bugzilla::Error; use Bugzilla::Product; +use List::Util qw(min); + use base qw(Exporter); @Bugzilla::Bug::EXPORT = qw( AppendComment ValidateComment diff --git a/Bugzilla/Chart.pm b/Bugzilla/Chart.pm index b2db9da30..729120e8e 100644 --- a/Bugzilla/Chart.pm +++ b/Bugzilla/Chart.pm @@ -38,6 +38,7 @@ use Bugzilla::Series; use Date::Format; use Date::Parse; +use List::Util qw(max); sub new { my $invocant = shift; @@ -313,10 +314,10 @@ sub readData { my $datediff = shift @datediff_total; push @processed_datediff, $datediff if defined($datediff); } - $self->{'y_max_value'} = Bugzilla::Util::max(@processed_datediff); + $self->{'y_max_value'} = max(@processed_datediff); } else { - $self->{'y_max_value'} = Bugzilla::Util::max(@maxvals); + $self->{'y_max_value'} = max(@maxvals); } $self->{'y_max_value'} |= 1; # For log() diff --git a/Bugzilla/Util.pm b/Bugzilla/Util.pm index 6660fff91..c5cfc0444 100644 --- a/Bugzilla/Util.pm +++ b/Bugzilla/Util.pm @@ -35,7 +35,7 @@ use base qw(Exporter); html_quote url_quote value_quote xml_quote css_class_quote i_am_cgi get_netaddr - lsearch max min + lsearch diff_arrays diff_strings trim wrap_comment find_wrap_point perform_substs @@ -158,22 +158,6 @@ sub lsearch { return -1; } -sub max { - my $max = shift(@_); - foreach my $val (@_) { - $max = $val if $val > $max; - } - return $max; -} - -sub min { - my $min = shift(@_); - foreach my $val (@_) { - $min = $val if $val < $min; - } - return $min; -} - sub diff_arrays { my ($old_ref, $new_ref) = @_; @@ -450,8 +434,6 @@ Bugzilla::Util - Generic utility functions for bugzilla # Functions for searching $loc = lsearch(\@arr, $val); - $val = max($a, $b, $c); - $val = min($a, $b, $c); # Data manipulation ($removed, $added) = diff_arrays(\@old, \@new); @@ -598,14 +580,6 @@ reference. If the item is not in the list, returns -1. -=item C<max($a, $b, ...)> - -Returns the maximum from a set of values. - -=item C<min($a, $b, ...)> - -Returns the minimum from a set of values. - =back =head2 Data Manipulation |