Change 23208 by [EMAIL PROTECTED] on 2004/08/09 18:28:33
made eq_array in t/test.pl handle undef values better
Affected files ...
... //depot/perl/t/test.pl#57 edit
Differences ...
==== //depot/perl/t/test.pl#57 (text) ====
Index: perl/t/test.pl
--- perl/t/test.pl#56~23090~ Tue Jul 13 02:13:39 2004
+++ perl/t/test.pl Mon Aug 9 11:28:33 2004
@@ -295,6 +295,9 @@
my ($ra, $rb) = @_;
return 0 unless $#$ra == $#$rb;
for my $i (0..$#$ra) {
+ next if !defined $ra->[$i] && !defined $rb->[$i];
+ return 0 if !defined $ra->[$i];
+ return 0 if !defined $rb->[$i];
return 0 unless $ra->[$i] eq $rb->[$i];
}
return 1;
End of Patch.
