Skip Menu |

This queue is for tickets about the Data-Difference CPAN distribution.

Report information
The Basics
Id: 75483
Status: new
Priority: 0/
Queue: Data-Difference

People
Owner: Nobody in particular
Requestors: MUIR [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: circular structure causes infinite recursion
A simple circular structure causes infinite recursion.
Subject: z2.pl
use Test::More tests => 1; use Data::Difference qw(data_diff); my $a = { x => [] }; push(@{$a->{x}}, $a->{x}); my $b = { x => [] }; push(@{$b->{x}}, $b->{x}); $SIG{ALRM} = sub { fail("timeout"); exit }; alarm(5); my @r = data_diff($a,$b); pass("done");