The deep arrays for testing ~~ were not deep enough
Rafael Garcia-Suarez [Mon, 7 Dec 2009 16:51:16 +0000 (17:51 +0100)]
Without commit 6bc991bfb3c34a5d286a1202fcc0d740d72dcee7, this test
would now segfault.

t/op/smartmatch.t

index 117fd4e..f8a073b 100644 (file)
@@ -18,8 +18,8 @@ my @empty;
 my %empty;
 my @sparse; $sparse[2] = 2;
 
-my $deep1 = []; push @$deep1, \$deep1;
-my $deep2 = []; push @$deep2, \$deep2;
+my $deep1 = []; push @$deep1, $deep1;
+my $deep2 = []; push @$deep2, $deep2;
 
 my @nums = (1..10);
 tie my @tied_nums, 'Tie::StdArray';