=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libdata-perl-perl-0.002011/t/collection/hash.t-70-$h = hash(a=>1,b=>2); libdata-perl-perl-0.002011/t/collection/hash.t:71:my $old_addr = refaddr($h); libdata-perl-perl-0.002011/t/collection/hash.t-72-$h->clear; libdata-perl-perl-0.002011/t/collection/hash.t-73-is_deeply {%{$h}}, {}, 'clear works'; libdata-perl-perl-0.002011/t/collection/hash.t:74:is refaddr($h), $old_addr, 'refaddr matches on clear'; libdata-perl-perl-0.002011/t/collection/hash.t-75- ############################################## libdata-perl-perl-0.002011/t/collection/hash.t-96-cmp_bag [$h->kv->all], [[qw/a 1/], [qw/b 2/]], 'shallow clone is a clone'; libdata-perl-perl-0.002011/t/collection/hash.t:97:isnt refaddr($h), refaddr($foo), 'refaddr doesnt match on clone'; libdata-perl-perl-0.002011/t/collection/hash.t-98- ############################################## libdata-perl-perl-0.002011/t/collection/array.t-218- libdata-perl-perl-0.002011/t/collection/array.t:219:isnt refaddr($ar), refaddr($foo), 'refaddr doesnt match on clone'; libdata-perl-perl-0.002011/t/collection/array.t-220-