App-CLI-Plugin-Daemonize

 view release on metacpan or  search on metacpan

inc/Test/More.pm  view on Meta::CPAN

634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
    # 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 )