=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libtest-deep-perl-1.130/lib/Test/Deep/Cache/Simple.pm-80-{ libtest-deep-perl-1.130/lib/Test/Deep/Cache/Simple.pm:81: return join(",", sort (map {refaddr($_)} @_)); libtest-deep-perl-1.130/lib/Test/Deep/Cache/Simple.pm-82-} ############################################## libtest-deep-perl-1.130/lib/Test/Deep/Shallow.pm-36- { libtest-deep-perl-1.130/lib/Test/Deep/Shallow.pm:37: $ok = refaddr($got) == refaddr($exp); libtest-deep-perl-1.130/lib/Test/Deep/Shallow.pm-38- } ############################################## libtest-deep-perl-1.130/lib/Test/Deep.pm-35-our $DNE = \""; libtest-deep-perl-1.130/lib/Test/Deep.pm:36:our $DNE_ADDR = Scalar::Util::refaddr($DNE); libtest-deep-perl-1.130/lib/Test/Deep.pm-37- ############################################## libtest-deep-perl-1.130/lib/Test/Deep.pm-274- libtest-deep-perl-1.130/lib/Test/Deep.pm:275: my $where = render_stack('$data', $stack); libtest-deep-perl-1.130/lib/Test/Deep.pm-276- ############################################## libtest-deep-perl-1.130/lib/Test/Deep.pm-325- $rendered = ref($val) ? libtest-deep-perl-1.130/lib/Test/Deep.pm:326: (Scalar::Util::refaddr($val) eq $DNE_ADDR ? libtest-deep-perl-1.130/lib/Test/Deep.pm-327- "Does not exist" : ############################################## libtest-deep-perl-1.130/lib/Test/Deep.pm-358- { libtest-deep-perl-1.130/lib/Test/Deep.pm:359: my $where = $Stack->render('$data'); libtest-deep-perl-1.130/lib/Test/Deep.pm-360- confess "Found a special comparison in $where\nYou can only use specials in the expects structure"; ############################################## libtest-deep-perl-1.130/lib/Test/Deep.pm-377- libtest-deep-perl-1.130/lib/Test/Deep.pm:378: my $s1 = Scalar::Util::refaddr($d1); libtest-deep-perl-1.130/lib/Test/Deep.pm:379: my $s2 = Scalar::Util::refaddr($d2); libtest-deep-perl-1.130/lib/Test/Deep.pm-380- ############################################## libtest-deep-perl-1.130/lib/Test/Deep.pm-402- libtest-deep-perl-1.130/lib/Test/Deep.pm:403: if (ref($d1) and (Scalar::Util::refaddr($d1) == $DNE_ADDR)) libtest-deep-perl-1.130/lib/Test/Deep.pm-404- { ############################################## libtest-deep-perl-1.130/lib/Test/Deep.pm-448- { libtest-deep-perl-1.130/lib/Test/Deep.pm:449: my $addr = Scalar::Util::refaddr($data); libtest-deep-perl-1.130/lib/Test/Deep.pm-450-