Imported from https://rt.cpan.org/Public/Bug/Display.html?id=101707

Hello!

Bug is reproducible with simple example:

!/usr/bin/perl

use warnings;
use strict;
use Array::Diff;
use Data::Dumper;

my $old = [ 'a' ];
my @new = ( 'b', 'c', 'd' );

my $diff = Array::Diff->diff( $old, @new );
my $cnt = $diff->count;
my $add_ref = $diff->added;
my $del_ref = $diff->deleted;

print "cnt=$cnt\n";

print "add: ", Dumper( $add_ref ), "\n";
print "del: ", Dumper( $del_ref ), "\n";

print "add-list: ", @{$add_ref}, "\n";
print "del-list: ", @{$del_ref}, "\n";

END

cnt=1
add: $VAR1 = [
'b',
'c',
'd'
];

del: $VAR1 = [
'a'
];

add-list: bcd
del-list: a

$diff->count should be 4, not 1.

See https://rt.cpan.org/Public/Bug/Display.html?id=120416 .