Lines Matching refs:a1
1059 my($a1, $a2) = @_;
1060 return 1 if $a1 eq $a2;
1063 my $max = $#$a1 > $#$a2 ? $#$a1 : $#$a2;
1065 my $e1 = $_ > $#$a1 ? $DNE : $a1->[$_];
1134 my($a1, $a2) = @_;
1135 return 1 if $a1 eq $a2;
1138 my $bigger = keys %$a1 > keys %$a2 ? $a1 : $a2;
1140 my $e1 = exists $a1->{$k} ? $a1->{$k} : $DNE;
1172 my($a1, $a2) = @_;
1173 return 0 unless @$a1 == @$a2;
1176 return eq_array( [sort _bogus_sort @$a1], [sort _bogus_sort @$a2] );