Lines Matching refs:a2
1010 my($a1, $a2) = @_;
1011 return 1 if $a1 eq $a2;
1014 my $max = $#$a1 > $#$a2 ? $#$a1 : $#$a2;
1017 my $e2 = $_ > $#$a2 ? $DNE : $a2->[$_];
1085 my($a1, $a2) = @_;
1086 return 1 if $a1 eq $a2;
1089 my $bigger = keys %$a1 > keys %$a2 ? $a1 : $a2;
1092 my $e2 = exists $a2->{$k} ? $a2->{$k} : $DNE;
1123 my($a1, $a2) = @_;
1124 return 0 unless @$a1 == @$a2;
1127 return eq_array( [sort _bogus_sort @$a1], [sort _bogus_sort @$a2] );