Disambiguate the names of the two methods 'hash' and 'sort'. They are now called 'genericHash' and 'genericSort' so as not to clash with the perl builtins 'CORE::hash' and 'CORE::sort'.

This commit is contained in:
ian%hixie.ch 2001-11-07 02:49:21 +00:00
Родитель 96ab2ee6f2
Коммит d1d1fa4ac2
1 изменённых файлов: 3 добавлений и 3 удалений

Просмотреть файл

@ -102,7 +102,7 @@ sub expand {
my $order = $self->evaluateExpression($attributes->{'order'}, $scope);
my $source = $self->evaluateExpression($attributes->{'source'}, $scope);
if ($order or $source) {
my @items = $self->sort($order, $self->keys($value, $source));
my @items = $self->genericSort($order, $self->genericKeys($value, $source));
if (@items) {
push(@index, $index);
push(@stack, $stack);
@ -429,7 +429,7 @@ sub evaluateCondition {
return 0;
}
sub keys {
sub genericKeys {
my $self = shift;
my($value, $source) = @_;
if (ref($value) eq 'HASH') {
@ -453,7 +453,7 @@ sub keys {
}
}
sub sort {
sub genericSort {
my $self = shift;
my($order, @list) = @_;
# sort the list (in reverse order!)