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

Owner: Nobody in particular
Requestors: MUIR [...]

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.
text/x-perl 260b
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");

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to