summaryrefslogtreecommitdiffstats
path: root/Bugzilla
diff options
context:
space:
mode:
Diffstat (limited to 'Bugzilla')
-rwxr-xr-xBugzilla/Bug.pm2
-rw-r--r--Bugzilla/Chart.pm5
-rw-r--r--Bugzilla/Util.pm28
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