App-CLI-Plugin-Daemonize
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
634635636637638639640641642643644645646647648649650651652653
# There's faster ways to do this, but this is easiest.
local
$^W = 0;
# It really doesn't matter how we sort them, as long as both arrays are
# sorted with the same algorithm.
#
# Ensure that references are not accidentally treated the same as a
# string containing the reference.
#
# Have to inline the sort routine due to a threading/sort bug.
# See [rt.cpan.org 6782]
#
# I don't know how references would be sorted so we just don't sort
# them. This means eq_set doesn't really work with refs.
return
eq_array(
[
grep
(
ref
,
@$a1
),
sort
(
grep
(!
ref
,
@$a1
) )],
[
grep
(
ref
,
@$a2
),
sort
(
grep
(!
ref
,
@$a2
) )],
);
}
( run in 0.393 second using v1.01-cache-2.11-cpan-d6f9594c0a5 )