Bug 342749: Replace Bugzilla::Util's min and max with the List::Util equivalents
Patch By Max Kanat-Alexander <mkanat@bugzilla.org> r=colin.ogilvie, r=vladd, a=justdave git-svn-id: svn://10.0.0.236/trunk@200997 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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()
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -28,7 +28,7 @@ use lib 't';
|
||||
use Support::Files;
|
||||
|
||||
BEGIN {
|
||||
use Test::More tests => 15;
|
||||
use Test::More tests => 13;
|
||||
use_ok(Bugzilla);
|
||||
use_ok(Bugzilla::Util);
|
||||
}
|
||||
@@ -57,11 +57,6 @@ is(lsearch(\@list,'pear'),1,'lsearch 1');
|
||||
is(lsearch(\@list,'<"\\%'),3,'lsearch 2');
|
||||
is(lsearch(\@list,'kiwi'),-1,'lsearch 3 (missing item)');
|
||||
|
||||
#max() and min():
|
||||
@list = (7,27,636,2);
|
||||
is(max(@list),636,'max()');
|
||||
is(min(@list),2,'min()');
|
||||
|
||||
#trim():
|
||||
is(trim(" fg<*\$%>+=~~ "),'fg<*$%>+=~~','trim()');
|
||||
|
||||
|
||||
@@ -36,6 +36,8 @@ use Bugzilla::Bug;
|
||||
use Bugzilla::User;
|
||||
use Bugzilla::Product;
|
||||
|
||||
use List::Util qw(min);
|
||||
|
||||
my $cgi = Bugzilla->cgi;
|
||||
my $template = Bugzilla->template;
|
||||
my $vars = {};
|
||||
|
||||
Reference in New Issue
Block a user