=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libscalar-list-utils-perl-1.55/lib/Scalar/Util.pm-109- libscalar-list-utils-perl-1.55/lib/Scalar/Util.pm:110: my $addr = refaddr( $ref ); libscalar-list-utils-perl-1.55/lib/Scalar/Util.pm-111- ############################################## libscalar-list-utils-perl-1.55/ListUtil.xs-1652-UV libscalar-list-utils-perl-1.55/ListUtil.xs:1653:refaddr(sv) libscalar-list-utils-perl-1.55/ListUtil.xs-1654- SV *sv ############################################## libscalar-list-utils-perl-1.55/t/refaddr.t-16-foreach my $v (undef, 10, 'string') { libscalar-list-utils-perl-1.55/t/refaddr.t:17: is(refaddr($v), undef, "not " . (defined($v) ? "'$v'" : "undef")); libscalar-list-utils-perl-1.55/t/refaddr.t-18-} ############################################## libscalar-list-utils-perl-1.55/t/refaddr.t-25- my $before = ref($r); libscalar-list-utils-perl-1.55/t/refaddr.t:26: is( refaddr($r), $addr, $n); libscalar-list-utils-perl-1.55/t/refaddr.t-27- is( ref($r), $before, $n); ############################################## libscalar-list-utils-perl-1.55/t/refaddr.t-29- my $obj = bless $r, 'FooBar'; libscalar-list-utils-perl-1.55/t/refaddr.t:30: is( refaddr($r), $addr, "blessed with overload $n"); libscalar-list-utils-perl-1.55/t/refaddr.t-31- is( ref($r), 'FooBar', $n); ############################################## libscalar-list-utils-perl-1.55/t/refaddr.t-45- ok(ref($x{$b})); libscalar-list-utils-perl-1.55/t/refaddr.t:46: ok(refaddr($xy) == refaddr($y)); libscalar-list-utils-perl-1.55/t/refaddr.t:47: ok(refaddr($xb) == refaddr($b)); libscalar-list-utils-perl-1.55/t/refaddr.t:48: ok(refaddr($x{$y})); libscalar-list-utils-perl-1.55/t/refaddr.t:49: ok(refaddr($x{$b})); libscalar-list-utils-perl-1.55/t/refaddr.t-50-} ############################################## libscalar-list-utils-perl-1.55/t/refaddr.t-52- my $z = bless {}, '0'; libscalar-list-utils-perl-1.55/t/refaddr.t:53: ok(refaddr($z)); libscalar-list-utils-perl-1.55/t/refaddr.t-54- { ############################################## libscalar-list-utils-perl-1.55/t/refaddr.t-58- my $a = {}; libscalar-list-utils-perl-1.55/t/refaddr.t:59: my $r = refaddr($a); libscalar-list-utils-perl-1.55/t/refaddr.t-60- $z = bless $a, '0'; libscalar-list-utils-perl-1.55/t/refaddr.t:61: ok(refaddr($z) > 10); libscalar-list-utils-perl-1.55/t/refaddr.t:62: is(refaddr($z),$r,"foo"); libscalar-list-utils-perl-1.55/t/refaddr.t-63-} ############################################## libscalar-list-utils-perl-1.55/t/refaddr.t-96- my ($underlying) = @$self; libscalar-list-utils-perl-1.55/t/refaddr.t:97: return $underlying->{refaddr($key)}; libscalar-list-utils-perl-1.55/t/refaddr.t-98-} ############################################## libscalar-list-utils-perl-1.55/t/refaddr.t-104- my ($underlying) = @$self; libscalar-list-utils-perl-1.55/t/refaddr.t:105: return ($underlying->{refaddr($key)} = $key); libscalar-list-utils-perl-1.55/t/refaddr.t-106-} ############################################## libscalar-list-utils-perl-1.55/t/getmagic-once.t-35-$getmagic_count = 0; libscalar-list-utils-perl-1.55/t/getmagic-once.t:36:ok refaddr($var); libscalar-list-utils-perl-1.55/t/getmagic-once.t-37-is $getmagic_count, 1, 'refaddr'; ############################################## libscalar-list-utils-perl-1.55/Changes-379- * Fixed looks_like_number(undef) to return false for perl >= 5.009002 libscalar-list-utils-perl-1.55/Changes:380: * Fixed bug in refaddr() when passed a tied variable libscalar-list-utils-perl-1.55/Changes-381- ############################################## libscalar-list-utils-perl-1.55/Changes-491- Scalar::Util libscalar-list-utils-perl-1.55/Changes:492: - Add refaddr() libscalar-list-utils-perl-1.55/Changes-493-