a regex in STDOUT destructor coredumped because regex pad already

[perl5.git] / t / test.pl

diff --git a/t/test.pl b/t/test.pl
index 56bf355..a35eb83 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -295,6 +295,9 @@ sub eq_array {
     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;