=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libtest-weaken-perl-3.022000/lib/Test/Weaken.pm-353- my ($ref) = @_; libtest-weaken-perl-3.022000/lib/Test/Weaken.pm:354: $ref = Scalar::Util::refaddr($ref); libtest-weaken-perl-3.022000/lib/Test/Weaken.pm-355- foreach my $object (@ignore_objects) { libtest-weaken-perl-3.022000/lib/Test/Weaken.pm:356: if (Scalar::Util::refaddr($object) == $ref) { libtest-weaken-perl-3.022000/lib/Test/Weaken.pm-357- return 1; ############################################## libtest-weaken-perl-3.022000/lib/Test/Weaken.pm-1015-When comparing references in a predicate it's good to use libtest-weaken-perl-3.022000/lib/Test/Weaken.pm:1016:C<Scalar::Util::refaddr()>. Plain C<$ref==$something> can be tricked if libtest-weaken-perl-3.022000/lib/Test/Weaken.pm-1017-C<$ref> is an object with overloaded numize or C<==> (see L<overload>). ############################################## libtest-weaken-perl-3.022000/lib/Test/Weaken.pm-1344-L<Tie::RefHash> and similar which allow arbitrary objects as keys of a hash libtest-weaken-perl-3.022000/lib/Test/Weaken.pm:1345:do so by using the object C<refaddr()> internally as the string key but libtest-weaken-perl-3.022000/lib/Test/Weaken.pm-1346-presenting objects in C<keys()>, C<each()>, etc. As of L<Tie::RefHash> 1.39 ############################################## libtest-weaken-perl-3.022000/lib/Test/Weaken.pm-1386-A referent address libtest-weaken-perl-3.022000/lib/Test/Weaken.pm:1387:can be determined by using C<refaddr()> from libtest-weaken-perl-3.022000/lib/Test/Weaken.pm-1388-L<Scalar::Util>.